A155974 Partial sums of A053872.

37, 236, 513, 880, 1877, 2926, 4029, 5480, 7189, 8966, 11103, 13316, 16269, 19310, 22717, 26606, 30595, 34686, 39995, 47188, 55071, 66184, 79941, 95024, 111097, 128190, 156833, 185742, 216001, 248204, 283293, 319270, 360149, 402306, 445757

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Feb 01 2009

Keywords

• nonn

Crossrefs

Cf. A053872, A053782

Programs

Mathematica

s1=s2=0;lst={};Do[If[PrimeQ[n],NULL,s1+=n;If[PrimeQ[s1],s2+=s1;AppendTo[lst,s2]]],{n,2,6!}];lst

Extensions

Definition corrected by N. J. A. Sloane, Feb 02 2009