OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
p=0; s=0; f=0; Do[p=Prime[n]; s=s+p; f=f+s; If[PrimeQ[f], Print[{n, f}]], {n, 1, 2000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 30 2006
STATUS
approved