A125907 Numbers k such that k divides 2^4 + 3^4 + 5^4 + ... + prime(k)^4.
1, 2951, 38266951, 3053263643573, 3798632877308897
Offset: 1
Links
- OEIS Wiki, Sums of powers of primes divisibility sequences.
Crossrefs
Programs
-
Mathematica
a(1) = 1; s = 2^4; Do[s = s + Prime[2n]^4+Prime[2n+1]^4; If[ Mod[s, 2n+1] == 0, Print[2n+1]], {n,1, 20000000}]
-
PARI
s=0; n=0; forprime(p=2, 4e9, s+=p^4; if(s%n++==0, print1(n", "))) \\ Charles R Greathouse IV, Mar 21 2011
Extensions
a(4) from Bruce Garner, Feb 26 2021
a(5) from Paul W. Dyson, May 09 2024
Comments