OFFSET
1,2
COMMENTS
a(18) > 3*10^13. - Bruce Garner, Aug 30 2021
a(19) > 5*10^13. - Bruce Garner, Jan 07 2022
LINKS
MATHEMATICA
s = 0; Do[s = s + Prime[n]^17; If[ Mod[s, n] == 0, Print[n]], {n, 1100000}]
CROSSREFS
Cf. A085450 (smallest m > 1 that divide Sum_{k=1..m} prime(k)^n).
KEYWORD
more,nonn,less
AUTHOR
Alexander Adamchuk, Jun 25 2007
EXTENSIONS
a(5) & a(6) from Robert G. Wilson v, Jul 05 2007
a(7) from D. S. McNeil, Dec 05 2010
a(8)-a(11) from Robert Price, Dec 12 2013
a(12) from Bruce Garner, Mar 02 2021
a(13) from Bruce Garner, Mar 17 2021
a(14) from Bruce Garner, Mar 30 2021
a(15) from Bruce Garner, Apr 14 2021
a(16) from Bruce Garner, Jun 30 2021
a(17) from Bruce Garner, Aug 30 2021
a(18) from Bruce Garner, Jan 07 2022
a(19) from Paul W. Dyson, Sep 15 2023
STATUS
approved