A157494 Primes in A014150.

2, 1429, 32869, 3189059, 5157791, 62701339, 139181423, 296686879, 522304883, 5070516751, 6276844867, 7098350179, 8983996079, 9331926623, 21211375343, 31177858939, 34861039007, 38865340309, 39918757589, 62858815181

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Mar 01 2009

Keywords

• nonn

Crossrefs

Cf. A001223, A014148, A014150, A061789, A069482, A122382, A129701, A157492, A157493

Programs

Mathematica

s0=s1=s2=0;lst={};Do[p=Prime[n];s0+=p;s1+=s0;s2+=s1;If[PrimeQ[s2],AppendTo[lst,s2]],{n,7!}];lst
Select[Nest[Accumulate[#]&,Prime[Range[700]],3],PrimeQ] (* Harvey P. Dale, Jul 11 2025 *)