OFFSET
1,1
MATHEMATICA
s0=s1=s2=0; lst={}; Do[p=Prime[n]; s0+=p; s1+=s0; s2+=s1; If[PrimeQ[s2], AppendTo[lst, s2]], {n, 7!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 01 2009
STATUS
approved