| DATA
|
2, 3, 7, 29, 61, 157, 239, 521, 739, 1021, 1277, 2221, 2731, 3851, 4651, 5857, 7039, 9343, 10831, 14561, 15919, 18481, 20563, 25321, 27551, 32371, 35803, 40993, 44371, 53551, 55987, 66721, 72733, 80207, 87151, 97453, 101603, 116471, 123787
|
| MATHEMATICA
|
a = {2}; k = 3; Do[i = 1; While[i < n + 1, If[ PrimeQ[k] && Mod[k, n] == 1, a = Append[a, k]; i++ ]; k++ ], {n, 2, 40}]; Table[ a[[n(n - 1)/2 + 1]], {n, 1, 40}]
|