OFFSET
1,2
COMMENTS
a(8) > 4.1*10^10. - Robert Price, Dec 02 2013
a(9) > 10^12. - Paul W. Dyson, Jan 03 2021
LINKS
MATHEMATICA
s = 0; Do[s = s + Prime[n]^14; If[ Mod[s, n] == 0, Print[n]], {n, 660000000}] (* Robert G. Wilson v, Jul 01 2007 *)
With[{nn=11000}, Select[Thread[{Accumulate[Prime[Range[nn]]^14], Range[ nn]}], Divisible[ #[[1]], #[[2]]]&]][[All, 2]] (* The program generates the first 5 terms of the sequence. To generate more, increase the value of nn. *) (* Harvey P. Dale, Jun 25 2021 *)
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 Robert G. Wilson v, Jul 01 2007
a(7) from Robert Price, Dec 02 2013
a(8) from Paul W. Dyson, Jan 03 2021
a(9) from Bruce Garner, Mar 28 2022
STATUS
approved