A124274 Nonprime numbers k that divide A124271(k) = Sum_{i=1..k} (prime(i)^k - 1) / (prime(i) - 1).
1, 9, 15, 121
Offset: 1
Examples
9 is a term because 9 divides A124271(9) = 108336139407.
Programs
-
Mathematica
s={};Do[If[!PrimeQ[k],If[Divisible[Sum[(Prime[i]^k-1)/(Prime[i]-1),{i,k}],k],AppendTo[s,k]]],{k,10^3}];s (* James C. McMahon, Dec 10 2024 *)
Comments