OFFSET
1,2
COMMENTS
a(10) > 3.0*10^12. - Bruce Garner, Mar 17 2021
LINKS
MATHEMATICA
s = 0; Do[s = s + Prime[n]^18; If[ Mod[s, n] == 0, Print[n]], {n, 10^6}]
With[{nn = 18000}, Transpose[With[{c = Thread[{Range[nn], Accumulate[Prime[ Range[nn]]^18]}]}, Select[c, Divisible[Last[#], First[#]] &]]][[1]]] (* Harvey P. Dale, Dec 19 2011 *)
CROSSREFS
Cf. A085450 = smallest m > 1 such that m divides Sum_{k=1..m} prime(k)^n.
KEYWORD
more,nonn
AUTHOR
Alexander Adamchuk, Jun 25 2007
EXTENSIONS
a(5)-a(7) from Robert Price, Dec 13 2013
a(8) from Paul W. Dyson, Jan 08 2021
a(9) from Bruce Garner, Mar 17 2021
a(10) from Paul W. Dyson, Oct 03 2023
STATUS
approved