|
|
A131279
|
|
Numbers k such that k divides Sum_{j=1..k} prime(j)^19.
|
|
2
|
|
|
1, 25, 453, 677, 839, 1015, 3735, 4175, 4413, 10369, 14239, 43311, 452567, 1274185, 14102849, 37801813, 71271705, 93524231, 386557609, 2151748733, 261349938459, 761474469415, 1284262332971, 5115376212971, 17863411895047, 122189141425495
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
s = 0; Do[s = s + Prime[n]^19; If[ Mod[s, n] == 0, Print[n]], {n, 50000}]
|
|
CROSSREFS
|
Cf. A085450 (smallest m > 1 such that m divides Sum_{k=1..m} prime(k)^n).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|