|
| |
|
|
A128168
|
|
Numbers n such that n divides 1 + Sum[ Prime[k]^4, {k,1,n} ] = 1 + A122102(n).
|
|
6
|
|
|
|
1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 15, 16, 20, 24, 27, 30, 32, 39, 40, 45, 48, 58, 60, 80, 88, 90, 96, 100, 120, 138, 168, 180, 207, 216, 240, 328, 342, 353, 360, 456, 470, 480, 496, 564, 591, 768, 840, 1040, 1215, 1276, 1355, 1360, 1395, 1440, 1600, 2208, 2576, 2904
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Table of n, a(n) for n=1..58.
|
|
|
MATHEMATICA
|
s = 1; Do[s = s + Prime[n]^4; If[ Mod[s, n] == 0, Print[n]], {n, 17500}]
|
|
|
CROSSREFS
|
Cf. A000040, A122102, A125907, A128165, A128166, A128167, A128169, A128170, A128171.
Sequence in context: A035303 A018609 A029461 * A018412 A061945 A029509
Adjacent sequences: A128165 A128166 A128167 * A128169 A128170 A128171
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Alexander Adamchuk, Feb 22 2007
|
|
|
STATUS
|
approved
|
| |
|
|
