login
A072468
Leading diagonal of triangle in A072467.
2
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
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
Sequence in context: A112266 A287019 A215169 * A148430 A062666 A148431
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 19 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jun 28 2002
STATUS
approved