|
%I #8 Feb 27 2013 16:29:58
%S 1,1,0,3,1,2,2,1,3,0,1,4,2,3,3,2,4,1,0,7,1,6,2,5,5,2,6,1,7,0,2,7,4,5,
%T 5,4,7,2,0,11,1,10,3,8,5,6,6,5,8,3,10,1,11,0,3,10,4,9,5,8,8,5,9,4,10,
%U 3,1,14,2,13,4,11,7,8,8,7,11,4,13,2,14,1
%N Pairs of numbers (a,b) such that a + b*I is a first-quadrant Gaussian prime, ordered by a+b and then a.
%C Gaussian primes on the positive real and imaginary axes are included. Note that the primes are ordered by their taxicab distance from the origin.
%H T. D. Noe, <a href="/A222593/b222593.txt">Table of n, a(n) for n = 1..1662</a> (taxicab distance less than 100)
%t 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]
%Y Cf. A218858, A218859 (number of Gaussian primes at taxicab distance n).
%K nonn
%O 1,4
%A _T. D. Noe_, Feb 27 2013
|
