OFFSET
1,1
MATHEMATICA
t1 = Rest[Select[Range[450], ! PrimeQ[#] &]]; t = {}; s = 0; Do[s += i; If[PrimeQ[s], AppendTo[t, s]; s = 0], {i, t1}]; t (* Jayanta Basu, Jul 07 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 11 2002
EXTENSIONS
More terms from Lior Manor Aug 13 2002
STATUS
approved