|
| |
|
|
A128170
|
|
Numbers n such that n divides 1 + Sum[ Prime[k]^6, {k,1,n} ].
|
|
6
| |
|
|
1, 2, 3, 4, 6, 7, 8, 9, 12, 14, 18, 21, 24, 27, 28, 29, 34, 36, 42, 45, 48, 54, 56, 63, 72, 84, 112, 126, 159, 168, 174, 198, 204, 216, 252, 310, 312, 336, 360, 400, 408, 441, 504, 505, 540, 588, 591, 657, 672, 716, 864, 900, 1080, 1152, 1316, 1350, 1380, 1680, 1722
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| s = 1; Do[s = s + Prime[n]^6; If[ Mod[s, n] == 0, Print[n]], {n, 10000}]
|
|
|
CROSSREFS
| Cf. A000040, A125825, A128165, A128166, A128167, A128168, A128169, A128171.
Sequence in context: A177500 A018772 A134003 * A018490 A113498 A036796
Adjacent sequences: A128167 A128168 A128169 * A128171 A128172 A128173
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Alexander Adamchuk (alex(AT)kolmogorov.com), Feb 22 2007
|
| |
|
|
