Position of the center of a 4-lion in the first quadrant, sorted by magnitude and imaginary part.
2, 2, 3, 1, 1, 3, 5, 5, 25, 5, 5, 25, 25, 25, 30, 30, 45, 15, 15, 45, 35, 35, 70, 70, 85, 85, 120, 30, 30, 120, 125, 5, 5, 125, 130, 50, 50, 130, 100, 100, 110, 110, 175, 65, 65, 175, 260, 20, 20, 260, 310, 10, 10, 310, 225, 225, 240, 210, 210, 240, 230, 230
1
See S000417. The terms on the diagonal x=y have coordinates x given in A109306.
T. D. Noe, Plot of 3252 pairs
T. D. Noe, Table of 3252 pairs
(Mma) nn = 1000; t = {}; Do[z = x + I*y; If[PrimeQ[z - 1, GaussianIntegers -> True] && PrimeQ[z + 1, GaussianIntegers -> True] && PrimeQ[z - I, GaussianIntegers -> True] && PrimeQ[z + I, GaussianIntegers -> True], If[Abs[z] <= nn, t = AppendTo[t, {Abs[z]^2, {x, y}}]; If[x != y, AppendTo[t, {Abs[z]^2, {y, x}}]]]], {x, 0, nn}, {y, x}]; t = Sort[t]; t2 = Transpose[t][[2]]; Table[{z[[2]], z[[1]]}, {z, t2}]
nonn
T. D. Noe, Dec 18 2014