OFFSET
1,1
COMMENTS
See comments in A153089.
LINKS
M. J. Crowe, Table of n, a(n) for n=1,...,10000
MATHEMATICA
lst2={}; s2=0; Do[s2=s2+Prime[n]; If[PrimeQ[s2], AppendTo[lst2, s2]], {n, 1000000}]; lst3={}; s3=0; Do[s3=s3+lst2[[n]]; If[PrimeQ[s3], AppendTo[lst3, s3]], {n, 1, Length[lst2]}]; lst3; lst4={}; s4=0; Do[s4=s4+lst3[[n]]; If[PrimeQ[s4], AppendTo[lst4, s4]], {n, 1, Length[lst3]}]; lst4
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael J. Crowe (michaelcrowe117(AT)btinternet.com), Jan 09 2009
STATUS
approved