cp's OEIS Frontend

A154423 Continue with summing & priming the A154422 (Level 4) list to level 5.

%I A154423 #1 Feb 27 2009 03:00:00
%S A154423 2,50575480513,1663807730918617976723,14304824932873646803553,
%T A154423 28817336920092499216069,20284632396728311969809131,
%U A154423 168804229342169123733371839,909257309497199880752121319
%N A154423 Continue with summing & priming the A154422 (Level 4) list to level 5.
%C A154423 See comments on A153089.
%C A154423 Summed primes found after processing (probable) Prime[] :
%C A154423 2, @Prime[1]
%C A154423 50575480513, @Prime[4722]
%C A154423 1663807730918617976723, @Prime[1974210]
%C A154423 14304824932873646803553, @Prime[2903172]
%C A154423 28817336920092499216069, @Prime[3420082]
%C A154423 20284632396728311969809131, @Prime[15247238]
%C A154423 168804229342169123733371839, @Prime[22642082]
%C A154423 909257309497199880752121319, @Prime[33274714]
%C A154423 9026355522011136010570106131, @Prime[53094426]
%C A154423 12263815980529982423068511467, @Prime[57000046]
%C A154423 21387636949994500797850359181, @Prime[65006502]
%C A154423 56131334772184677703527026147, @Prime[78661050]
%C A154423 62292259347481056139884911863, @Prime[81244070]
%C A154423 83034816090925278171614867177, @Prime[85729684]
%C A154423 155030914145470518313682423747, @Prime[96915920]
%C A154423 197999545090257302363521955417, @Prime[101294198]
%C A154423 253698723331018987460955136741, @Prime[106154766]
%C A154423 425504333192275826687012761279, @Prime[122033702]
%C A154423 482627861344449877955168125963, @Prime[124661548]
%C A154423 589741242267992002144967999423, @Prime[129872416]
%C A154423 619685334968034352750914408883, @Prime[131898052]
%C A154423 721898204498044322321900684473, @Prime[134793368]
%C A154423 905024448001289513576258053853, @Prime[140868154]
%t A154423 lst2={}; s2=0; Do[s2=s2+Prime[n]; If[PrimeQ[s2], AppendTo[lst2, s2]], {n, 4000000}]; 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; lst5={}; s5=0; Do[s5=s5+lst4[[n]];If[PrimeQ[s5], AppendTo[lst5, s5]], {n,1,Length[lst4]}]; lst5
%Y A154423 A000040(Level 1),A013918(Level 2),A153089(Level 3),A154422(Level 4),A154424(Level 6)
%K A154423 nonn
%O A154423 1,1
%A A154423 Michael J Crowe (michaelcrowe117(AT)btinternet.com), Jan 09 2009