Pairs of numbers (j,k) that produce the primes in S000617.
2, 3, 4, 5, 1, 6, 7, 10, 12, 13, 8, 15, 11, 18, 9, 20, 16, 21, 17, 22, 19, 24, 14, 31, 26, 27, 23, 30, 28, 33, 25, 36, 37, 38, 40, 43, 29, 48, 39, 46, 32, 51, 35, 52, 41, 50, 42, 53, 47, 54, 44, 57, 45, 58, 34, 63, 49, 60, 55, 62, 56, 65, 59, 70, 64, 67, 61, 72
1
Every number appears only once. The n-th pair produces the n-th prime in S000617.
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^4 + lst[[pos]]^4; 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. S000617.
nonn,tabl
T. D. Noe, May 05 2015