OFFSET
1,2
COMMENTS
a(13) > 4*10^13. - Bruce Garner, Aug 30 2021
LINKS
MATHEMATICA
s = 0; Do[s = s + Prime[n]^13; If[ Mod[s, n] == 0, Print[n]], {n, 200000}]
PROG
(PARI) S=n=0; forprime(p=1, , (S+=p^13)%n++||print1(n", ")) \\ M. F. Hasler, Dec 01 2013
CROSSREFS
Cf. A085450 = smallest m > 1 such that m divides Sum_{k=1..m} prime(k)^n.
KEYWORD
more,nonn,less
AUTHOR
Alexander Adamchuk, Jun 25 2007
EXTENSIONS
a(6)-a(8) from Robert G. Wilson v, Jun 30 2007
a(9)-a(10) from Robert Price, Nov 28 2013
a(11) from Bruce Garner, Mar 23 2021
a(12) from Bruce Garner, Aug 30 2021
a(13) from Paul W. Dyson, Apr 20 2023
STATUS
approved