login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A131276
Numbers m such that m divides Sum_{k=1..m} prime(k)^16.
2
1, 3131, 6289, 323807, 443371, 83802527023, 4076111200313
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
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).
Sequence in context: A234118 A218160 A045172 * A045075 A071143 A284984
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