Gaussian primes strictly in the first quadrant, sorted by magnitude and imaginary part < real part.
1, 1, 2, 1, 3, 2, 4, 1, 5, 2, 6, 1, 5, 4, 7, 2, 6, 5, 8, 3, 8, 5, 9, 4, 10, 1, 10, 3, 8, 7, 11, 4, 10, 7, 11, 6, 13, 2, 10, 9, 12, 7, 14, 1, 15, 2, 13, 8, 15, 4, 16, 1, 13, 10, 14, 9, 16, 5, 17, 2, 13, 12, 14, 11, 16, 9, 18, 5, 17, 8, 18, 7, 17, 10, 19, 6, 20, 1
1
Prime 1+i and the Gaussian primes in the lower half of the first quadrant.
T. D. Noe, Plot of 610 pairs
T. D. Noe, Table of 610 pairs
T. D. Noe, Numbers plotted in the complex plane
Eric W. Weisstein, MathWorld: Gaussian Prime
(Mma) nn = 10; t = Select[Flatten[Table[a + b*I, {a, nn}, {b, nn}]], Abs[#] <= nn && PrimeQ[#, GaussianIntegers -> True] &]; t2 = Sort[t, Abs[#1] <= Abs[#2] &]; t3 = Transpose[{Re /@ t2, Im /@ t2}]; Flatten[Select[t3, #[[1]] >= #[[2]] &]]
nonn
T. D. Noe, Dec 14 2014