S000424


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

S000424

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

© Tony D Noe 2014-2015