OFFSET
1,1
MATHEMATICA
t1 = Rest[Select[Range[970], ! PrimeQ[#] &]]; t = {}; s = c = 0; Do[s += i; c += 1; If[PrimeQ[s], AppendTo[t, c]; s = c = 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