OFFSET
1,2
COMMENTS
No other terms up to 10^8. - Stefan Steinerberger, Jun 06 2007
a(11) > 6*10^9. - Donovan Johnson, Oct 15 2012
a(13) > 10^11. - Robert Price, Mar 30 2013
a(15) > 10^12. - Paul W. Dyson, Jan 04 2021
a(16) > 2.2*10^13. - Bruce Garner, May 09 2021
a(17) > 10^14. - Paul W. Dyson, Feb 04 2022
a(17) > 10^15. - Paul W. Dyson, Nov 19 2024
EXAMPLE
MATHEMATICA
s = 0; t = {}; Do[s = s + Prime[n]^5; If[ Mod[s, n] == 0, AppendTo[t, n]], {n, 1000000}]; t
Module[{nn = 4*10^6}, Select[Thread[{Range[nn], Accumulate[ Prime[ Range[ nn]]^5]}], Divisible[#[[2]], #[[1]]] &]][[All, 1]] (* Generates the first 8 terms; to generate more, increase the value of nn, but the program may take a long time to run. *) (* Harvey P. Dale, Aug 26 2019 *)
CROSSREFS
KEYWORD
nonn,hard,changed
AUTHOR
Alexander Adamchuk, Aug 21 2006
EXTENSIONS
2 more terms from Stefan Steinerberger, Jun 06 2007
a(9)-a(10) from Donovan Johnson, Oct 15 2012
a(11)-a(12) from Robert Price, Mar 30 2013
a(13)-a(14) from Paul W. Dyson, Jan 04 2021
a(15) from Bruce Garner, May 09 2021
a(16) from Paul W. Dyson, Feb 04 2022
STATUS
approved