OFFSET
1,4
COMMENTS
Gaussian primes on the positive real and imaginary axes are included. Note that the primes are ordered by their taxicab distance from the origin.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1662 (taxicab distance less than 100)
MATHEMATICA
nn = 20; t = {}; Do[If[PrimeQ[i + (j - i) I, GaussianIntegers -> True], AppendTo[t, {i, j-i}]], {j, 0, nn}, {i, 0, j}]; Flatten[t]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Feb 27 2013
STATUS
approved