|
%I #3 Nov 11 2010 07:34:06
%S 2,50575480511,158413287841,379787123171,88082548147771,
%T 3939163325960453,4342203121792903,41672041797268133,
%U 92013021551247323,145937058697288751,157891295660264779,270930872865589619
%N Continue with summing & priming the A153089 (level 3) list to level 4.
%C See comments in A153089.
%H M. J. Crowe, <a href="/A154422/b154422.txt">Table of n, a(n) for n=1,...,10000</a>
%t 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
%Y A000040(Level 1),A013918(Level 2),A153089(Level 3),A154423(Level 5),A154424(Level 6)
%K nonn
%O 1,1
%A Michael J. Crowe (michaelcrowe117(AT)btinternet.com), Jan 09 2009
|
