OFFSET
1,1
COMMENTS
3+127+379=509 (prime), ...
MATHEMATICA
s1=s2=0; lst={}; Do[p=Prime[n]; s1+=p; If[PrimeQ[s1], s2+=s1; If[PrimeQ[s2], AppendTo[lst, s2]]], {n, 2, 8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 29 2009
STATUS
approved