A124272 Primes in A124271, or primes of the form Sum_{i=1..k} (prime(i)^k - 1)/(prime(i) - 1).
7, 1469991559, 2994181661163361882651
Offset: 1
Examples
7 is a term because A124271(2) = 7 is prime.
Crossrefs
Cf. A124271.
Programs
-
Mathematica
Do[f=Sum[(Prime[i]^n-1)/(Prime[i]-1),{i,1,n}];If[PrimeQ[f],Print[{n,f}]],{n,1,100}]
Comments