|
|
A125828
|
|
Numbers m that divide 2^8 + 3^8 + ... + prime(m)^8.
|
|
3
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
s = 0; t = {}; Do[s = s + Prime[n]^8; If[ Mod[s, n] == 0, AppendTo[t, n]], {n, 1000000}]; t
|
|
PROG
|
(PARI) S=n=0; forprime(p=1, , (S+=p^8)%n++||print1(n", ")) \\ M. F. Hasler, Dec 01 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,hard,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|