login
A155974
Partial sums of A053872.
0
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,1
MATHEMATICA
s1=s2=0; lst={}; Do[If[PrimeQ[n], NULL, s1+=n; If[PrimeQ[s1], s2+=s1; AppendTo[lst, s2]]], {n, 2, 6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition corrected by N. J. A. Sloane, Feb 02 2009
STATUS
approved