A072469 Right diagonal of triangle in A072467.

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

Offset: 1

Author

Amarnath Murthy, Jun 19 2002

Keywords

• nonn

Crossrefs

Cf. A072467, A072468.

Programs

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}]

Extensions

Edited by Robert G. Wilson v, Jun 28 2002