_Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Jun 19 2002

OEIS Server: https://oeis.org/edit/global/2075

Edited by _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Jun 28 2002

OEIS Server: https://oeis.org/edit/global/156

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

1,1

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

Cf. A072467, A072468.

nonn

Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 19 2002

Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 28 2002

approved