OFFSET
1,2
COMMENTS
a(7) > 10^11. - Paul W. Dyson, Dec 30 2020
a(8) > 4.1*10^12. - Bruce Garner, Mar 24 2021
a(8) > 2*10^15. - Paul W. Dyson, Nov 23 2024
LINKS
MATHEMATICA
s = 0; Do[s = s + Prime[n]^16; If[ Mod[s, n] == 0, Print[n]], {n, 500000}]
Transpose[Select[With[{nn=500000}, Thread[{Range[nn], Accumulate[ Prime[ Range[nn]]^16]}]], Divisible[ #[[2]], #[[1]]]&]][[1]]
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) from Paul W. Dyson, Dec 30 2020
a(7) from Bruce Garner, Mar 24 2021
STATUS
approved