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