Position of the center of a “real” 4-lion in the octant x >= y >= 0.
3, 1, 25, 5, 45, 15, 120, 30, 125, 5, 130, 50, 175, 65, 260, 20, 310, 10, 240, 210, 310, 110, 335, 5, 250, 230, 305, 215, 310, 220, 340, 250, 395, 205, 440, 170, 465, 165, 500, 110, 515, 5, 465, 225, 520, 20, 540, 180, 580, 170, 580, 190, 595, 145, 445, 425, 625
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, {x, y}}]]], {x, 0, nn}, {y, x-1}]; t = Sort[t]; Union[Transpose[t][[1]]]
Cf. S000421.
nonn
T. D. Noe, Dec 19 2014