OFFSET
1,1
COMMENTS
MATHEMATICA
s=0; lst={}; Do[p=Prime[n]; s+=p; If[PrimeQ[s], AppendTo[lst, s]], {n, 3, 7!}]; lst
Select[Accumulate[Prime[Range[3, 500]]], PrimeQ] (* Harvey P. Dale, Jun 22 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 28 2009
STATUS
approved