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
Vladimir Joseph Stephan Orlovsky, Feb 01 2009
EXTENSIONS
Definition corrected by N. J. A. Sloane, Feb 02 2009
STATUS
approved