A072468 Leading diagonal of triangle in A072467.

2, 5, 19, 53, 151, 211, 463, 673, 1009, 1231, 2179, 2593, 3823, 4649, 5821, 6977, 9283, 10369, 14479, 15901, 18397, 20549, 25301, 27073, 32251, 35569, 40879, 44017, 53419, 55681, 66713, 72577, 80191, 87041, 97441, 101341, 116329, 123653

Offset: 1

Author

Amarnath Murthy, Jun 19 2002

Keywords

• nonn

Crossrefs

Cf. A072467, A072469.

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]], {n, 1, 40}]

Extensions

Edited by Robert G. Wilson v, Jun 28 2002