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
Keywords
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 *)