|
|
A125825
|
|
Numbers m that divide 2^6 + 3^6 + 5^6 + ... + prime(m)^6.
|
|
2
|
|
|
1, 4357, 230065, 32826947, 29578097627, 136736829787, 1449657373945, 39153480154471, 275533558444523, 442844575927975, 879110348271737
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
s = 0; Do[s = s + Prime[n]^6; If[ Mod[s, n] == 0, Print[n]], {n, 240000}]
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,hard,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|