A222593 Pairs of numbers (a,b) such that a + b*I is a first-quadrant Gaussian prime, ordered by a+b and then a.
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, 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, 3, 1, 14, 2, 13, 4, 11, 7, 8, 8, 7, 11, 4, 13, 2, 14, 1
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n = 1..1662 (taxicab distance less than 100)
Programs
-
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]
Comments