A131277 Numbers m that divide Sum_{k=1..m} prime(k)^17.
1, 395191, 697717, 1078323, 2050797, 10543929, 386099691, 2467825171, 4488040933, 17387575533, 39641205433, 825688143387, 2800262033655, 3214748608393, 5174884331693, 16485974355373, 20683624349423, 34390023299149, 629341300687639
Offset: 1
Links
- OEIS Wiki, Sums of powers of primes divisibility sequences.
Crossrefs
Programs
-
Mathematica
s = 0; Do[s = s + Prime[n]^17; If[ Mod[s, n] == 0, Print[n]], {n, 1100000}]
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
Comments