Gaussian primes strictly in the first quadrant, sorted by magnitude and real part < imaginary part.
1, 1, 1, 2, 2, 3, 1, 4, 2, 5, 1, 6, 4, 5, 2, 7, 5, 6, 3, 8, 5, 8, 4, 9, 1, 10, 3, 10, 7, 8, 4, 11, 7, 10, 6, 11, 2, 13, 9, 10, 7, 12, 1, 14, 2, 15, 8, 13, 4, 15, 1, 16, 10, 13, 9, 14, 5, 16, 2, 17, 12, 13, 11, 14, 9, 16, 5, 18, 8, 17, 7, 18, 10, 17, 6, 19, 1, 20
1
Prime 1+i and the Gaussian primes in the upper 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