A155852 n is prime and is the sum of the first k primes for some k in A071151.
3, 509, 146749, 26444543, 187206119, 735187721, 1662266153, 2146936021, 2844048943, 4335869143, 5539721989, 5990371801, 6145377247, 6788645863, 10092092897, 19122368737, 20186509381, 25745240897, 32732349829
Offset: 1
Keywords
Programs
-
Mathematica
s1=s2=0;lst={};Do[p=Prime[n];s1+=p;If[PrimeQ[s1],s2+=s1;If[PrimeQ[s2],AppendTo[lst,s2]]],{n,2,8!}];lst
Comments