S000616


Pairs of numbers (j,k) that produce the primes in S000615.

2, 3, 1, 4, 5, 8, 7, 10, 6, 11, 12, 13, 9, 16, 14, 15, 17, 18, 20, 23, 19, 24, 21, 26, 22, 27, 25, 28, 30, 31, 29, 34, 32, 33, 35, 36, 37, 40, 39, 44, 38, 45, 42, 43, 47, 48, 46, 49, 50, 53, 51, 56, 52, 57, 41, 66, 54, 59, 55, 62, 58, 63, 60, 67, 65, 68, 61, 76

1

S000616

Every number appears only once. The n-th pair produces the n-th prime in S000615

T. D. Noe, Plot of 500 pairs

T. D. Noe, Table of 500 pairs

(Mma) n = 100; lst = Reverse[Range[2 n]]; prms = {}; Do[m = lst[[1]]; lst = Delete[lst, 1]; pos = 1; While[p = m^2 + lst[[pos]]^2; Not[PrimeQ[p]], pos++]; AppendTo[prms, {p, lst[[pos]], m}]; lst = Delete[lst, pos], {i, n}]; t2 = Take[Sort[prms], n/2]; Flatten[Transpose[Take[Transpose[t2], -2]]]

Cf. S000615.

nonn,tabl

T. D. Noe, May 05 2015

© Tony D Noe 2014-2015