cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

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

Original entry on oeis.org

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

Views

Author

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

Keywords

Comments

See comments in A153089.

Links

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

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

Original entry on oeis.org

2, 50575480513, 1663807730918617976723, 14304824932873646803553, 28817336920092499216069, 20284632396728311969809131, 168804229342169123733371839, 909257309497199880752121319
Offset: 1

Views

Author

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

Keywords

Comments

See comments on A153089.
Summed primes found after processing (probable) Prime[] :
2, @Prime[1]
50575480513, @Prime[4722]
1663807730918617976723, @Prime[1974210]
14304824932873646803553, @Prime[2903172]
28817336920092499216069, @Prime[3420082]
20284632396728311969809131, @Prime[15247238]
168804229342169123733371839, @Prime[22642082]
909257309497199880752121319, @Prime[33274714]
9026355522011136010570106131, @Prime[53094426]
12263815980529982423068511467, @Prime[57000046]
21387636949994500797850359181, @Prime[65006502]
56131334772184677703527026147, @Prime[78661050]
62292259347481056139884911863, @Prime[81244070]
83034816090925278171614867177, @Prime[85729684]
155030914145470518313682423747, @Prime[96915920]
197999545090257302363521955417, @Prime[101294198]
253698723331018987460955136741, @Prime[106154766]
425504333192275826687012761279, @Prime[122033702]
482627861344449877955168125963, @Prime[124661548]
589741242267992002144967999423, @Prime[129872416]
619685334968034352750914408883, @Prime[131898052]
721898204498044322321900684473, @Prime[134793368]
905024448001289513576258053853, @Prime[140868154]

Crossrefs

A000040(Level 1),A013918(Level 2),A153089(Level 3),A154422(Level 4),A154424(Level 6)

Programs

  • Mathematica
    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

A154424 Continue with summing & priming the A154423 (Level 5) list to level 6.

Original entry on oeis.org

2, 22388562459746799685433396747, 805356826229750685152751618123101, 689400380025917209087935611674203155791, 3105808024815442289202546027249327480961, 20662615055094927265669723508498824139849
Offset: 1

Views

Author

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

Keywords

Comments

See comments on A153089.
Summed primes found after processing (probable) Prime[] :
2, @Prime[1]
22388562459746799685433396747, @Prime[57000046]
805356826229750685152751618123101, @Prime[384411248]
???
Currently searched to (probable) Prime[10^9] using a NTL+C program using Miller-witness 10 trials. Checked summed primes with PrimeQ[].
From Michael J Crowe (michaelcrowe117(AT)btinternet.com), Mar 16 2009: (Start)
689400380025917209087935611674203155791, @Prime[4772152782]
3105808024815442289202546027249327480961, @Prime[6288823330]
20662615055094927265669723508498824139849, @Prime[8828698784]
(End)

Crossrefs

Cf. A000040 (Level 1), A013918 (Level 2), A153089 (Level 3), A154422 (Level 4), A154423 (Level 5).

Programs

  • Mathematica
    lst2={}; s2=0; Do[s2=s2+Prime[n]; If[PrimeQ[s2], AppendTo[lst2, s2]], {n, 10^9}]; 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; lst6={}; s6=0; Do[s6=s6+lst5[[n]];If[PrimeQ[s6], AppendTo[lst6, s6]], {n,1,Length[lst5]}]; lst6

Extensions

a(4)-a(6) added by Michael J Crowe (michaelcrowe117(AT)btinternet.com), Mar 16 2009
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.