OFFSET
1,2
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}]
Position[Nest[Accumulate, Prime[Range[1000]], 2], _?PrimeQ]//Flatten (* Harvey P. Dale, Jul 15 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 30 2006
STATUS
approved