%I #3 Mar 31 2012 12:38:20
%S 37,236,513,880,1877,2926,4029,5480,7189,8966,11103,13316,16269,19310,
%T 22717,26606,30595,34686,39995,47188,55071,66184,79941,95024,111097,
%U 128190,156833,185742,216001,248204,283293,319270,360149,402306,445757
%N Partial sums of A053872.
%t s1=s2=0;lst={};Do[If[PrimeQ[n],NULL,s1+=n;If[PrimeQ[s1],s2+=s1;AppendTo[lst,s2]]],{n,2,6!}];lst
%Y Cf. A053872, A053782
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Feb 01 2009
%E Definition corrected by _N. J. A. Sloane_, Feb 02 2009
|