A154422 Continue with summing & priming the A153089 (level 3) list to level 4.

2, 50575480511, 158413287841, 379787123171, 88082548147771, 3939163325960453, 4342203121792903, 41672041797268133, 92013021551247323, 145937058697288751, 157891295660264779, 270930872865589619

Offset: 1

Author

Michael J. Crowe (michaelcrowe117(AT)btinternet.com), Jan 09 2009

Keywords

• nonn

Comments

See comments in A153089.

Links

• M. J. Crowe, Table of n, a(n) for n=1,...,10000

Crossrefs

A000040(Level 1),A013918(Level 2),A153089(Level 3),A154423(Level 5),A154424(Level 6)

Programs

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