|
Search: id:A072468
|
|
| |
|
| 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
(list; graph; listen)
|
|
|
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
|
Cf. A072467, A072469.
Sequence in context: A086085 A138250 A077323 this_sequence A062666 A047116 A062122
Adjacent sequences: A072465 A072466 A072467 this_sequence A072469 A072470 A072471
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 19 2002
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 28 2002
|
|
|
Search completed in 0.002 seconds
|
