Position of the center of a 4-lion in the octant y >= x >= 0.
2, 2, 1, 3, 5, 5, 5, 25, 25, 25, 30, 30, 15, 45, 35, 35, 70, 70, 85, 85, 30, 120, 5, 125, 50, 130, 100, 100, 110, 110, 65, 175, 20, 260, 10, 310, 225, 225, 210, 240, 230, 230, 110, 310, 5, 335, 230, 250, 260, 260, 215, 305, 220, 310, 285, 285, 290, 290, 250
1
See S000417. The terms on the diagonal x=y have coordinates x given in A109306.
T. D. Noe, Plot of 1689 pairs
T. D. Noe, Table of 1689 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, {y, x}}]]], {x, 0, nn}, {y, x}]; t = Sort[t]; Transpose[t][[2]]
nonn
T. D. Noe, Dec 18 2014