Position of the center of a “real” 4-lion in the octant y >= x >= 0.
1, 3, 5, 25, 15, 45, 30, 120, 5, 125, 50, 130, 65, 175, 20, 260, 10, 310, 210, 240, 110, 310, 5, 335, 230, 250, 215, 305, 220, 310, 250, 340, 205, 395, 170, 440, 165, 465, 110, 500, 5, 515, 225, 465, 20, 520, 180, 540, 170, 580, 190, 580, 145, 595, 425, 445, 145
1
See S000421.
T. D. Noe, Plot of 1563 pairs
T. D. Noe, Table of 1563 pairs
John Renze, Stan Wagon, and Brian Wick, The Gaussian Zoo, Experimental Math. 10:2, p. 161-173.
(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-1}]; t = Sort[t]; Union[Transpose[t][[1]]]
Cf. S000421.
nonn
T. D. Noe, Dec 19 2014