|
Search: id:A072469
|
|
| |
|
| 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
(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 + 1]], {n, 1, 40}]
|
|
CROSSREFS
|
Cf. A072467, A072468.
Adjacent sequences: A072466 A072467 A072468 this_sequence A072470 A072471 A072472
Sequence in context: A019435 A061092 A084435 this_sequence A004062 A037151 A008840
|
|
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
|
