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,1

Links

Table of n, a(n) for n=1..38.

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

Crossrefs

Cf. A072467, A072469.

Sequence in context: A112266 A287019 A215169 * A148430 A062666 A148431

Adjacent sequences: A072465 A072466 A072467 * A072469 A072470 A072471

Keyword

nonn

Author

Amarnath Murthy, Jun 19 2002

Extensions

Edited by Robert G. Wilson v, Jun 28 2002

Status

approved