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-10 of 56 results. Next

A231574 Primes in A001590.

Original entry on oeis.org

2, 3, 11, 37, 634061, 7256527, 1424681173049, 123937002926372177911
Offset: 1

Views

Author

Robert Price, Nov 18 2013

Keywords

Comments

a(9) contains 427 digits and is too large to include here.
a(10) contains 4024 digits and is too large to include here.

Crossrefs

Cf. A000213, A001590, A056816, A157611, A231575.

Extensions

Name clarified by Arthur O'Dwyer, Jul 24 2024

A235862 Indices of primes in A141523.

Original entry on oeis.org

0, 3, 4, 5, 8, 10, 14, 16, 24, 30, 40, 54, 63, 66, 67, 109, 188, 203, 421, 463, 704, 730, 798, 1155, 1259, 1376, 1789, 2095, 2650, 3833, 4538, 4794, 4840, 5386, 8348, 15176, 17282, 21250, 21386, 21825, 31242, 32843, 33706, 37026, 47546, 66848
Offset: 1

Views

Author

Robert Price, Jan 16 2014

Keywords

Comments

a(47) > 2*10^5.

Links

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523.

Programs

  • Mathematica
    a={3,1,1}; Print[0]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[n]]; a=RotateLeft[a]; a[[3]]=sum]

Extensions

Name clarified by Arthur O'Dwyer, Jul 25 2024

A232542 Primes in A100683.

Original entry on oeis.org

2, 2, 3, 7, 41, 467, 859, 8012003, 168650767, 17843905055671832482869722050793, 2337143892123435886770270228393473, 563028582965218666043722998152482699
Offset: 1

Views

Author

Robert Price, Nov 25 2013

Keywords

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232543.

Programs

  • Mathematica
    a={-1,2,2}; Print[2]; Print[2]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]

Extensions

Name clarified by Arthur O'Dwyer, Jul 25 2024

A230607 Primes in the tribonacci-like sequence A214899.

Original entry on oeis.org

2, 2, 5, 173, 1979, 10035601, 1314434453, 15043078019, 75946890143515970461691, 9947307490759622919990767, 33651500197152003774080593, 113842209720657202395344053, 577291982170349695261586984393, 33503139717732963900675717496847941
Offset: 1

Views

Author

Robert Price, Dec 05 2013

Keywords

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232543, A214899.

Programs

  • Mathematica
    a={2,1,2}; Print[2]; Print[2]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]
Select[LinearRecurrence[{1,1,1},{2,1,2},300],PrimeQ] (* Harvey P. Dale, Jul 30 2015 *)

Extensions

More terms from Harvey P. Dale, Jul 30 2015

A232498 Primes in the tribonacci-like sequence, A020992.

Original entry on oeis.org

2, 3, 19, 4567, 52267, 325219, 2967036956187340614662532876709507060271690954641131383
Offset: 1

Views

Author

Robert Price, Dec 12 2013

Keywords

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554.

Programs

  • Mathematica
    a={0,2,1}; Print[2] For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]

A232543 Indices of primes in A100683.

Original entry on oeis.org

1, 2, 3, 4, 7, 11, 12, 27, 32, 119, 127, 136, 611, 755, 872, 1676, 5363, 15623, 27564, 42679, 54576, 74123, 91043, 104331
Offset: 1

Views

Author

Robert Price, Nov 25 2013

Keywords

Comments

a(25) > 2*10^5.

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232542.

Programs

  • Mathematica
    a={-1,2,2};Print[1],Print[2];For[n=3,n<=1000,n++,sum=Plus@@a;If[PrimeQ[sum],Print[n]];a=RotateLeft[a]; a[[3]]=sum]

Formula

A100683(a(n)) = A232542(n). - Arthur O'Dwyer, 25 Jul 2024

Extensions

Name clarified by Arthur O'Dwyer, Jul 25 2024

A233554 Indices of primes in the tribonacci-like sequence, A020992.

Original entry on oeis.org

1, 3, 6, 15, 19, 22, 207, 542, 2374, 10579, 17726, 43182
Offset: 1

Views

Author

Robert Price, Dec 12 2013

Keywords

Comments

a(13) > 2*10^5.

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498.

Programs

  • Mathematica
    a={0,2,1};Print[1];For[n=3,n<=1000,n++,sum=Plus@@a;If[PrimeQ[sum],Print[n]];a=RotateLeft[a]; a[[3]]=sum]

A234696 Indices of primes in the tribonacci-like sequence, A214727.

Original entry on oeis.org

1, 2, 3, 8, 16, 20, 64, 208, 364, 2652, 7763, 17280, 24104, 31823, 70864, 74008
Offset: 1

Views

Author

Robert Price, Dec 29 2013

Keywords

Comments

a(17) > 2*10^5.

Links

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727.

Programs

  • Mathematica
    a={1, 2, 2}; Print[2]; Print[2]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[n]]; a=RotateLeft[a]; a[[3]]=sum]
Position[LinearRecurrence[{1,1,1},{1,2,2},75000],?PrimeQ]-1//Flatten (* _Harvey P. Dale, Sep 02 2016 *)

A235873 Primes in the tribonacci-like sequence, A141523.

Original entry on oeis.org

3, 5, 7, 13, 83, 281, 3217, 10883, 1425427, 55187617, 24453221203, 124001884480009, 29872617402415741, 185875267730565697, 341877918058715653, 44580781450601596678810171573, 36012536557658790037420884825332617431175065740791
Offset: 1

Views

Author

Robert Price, Jan 16 2014

Keywords

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554. A214727, A234696, A141523, A235862.

Programs

  • Mathematica
    a={3,1,1}; Print[3]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]

A249413 Primes in the hexanacci numbers sequence A000383.

Original entry on oeis.org

11, 41, 72426721, 143664401, 565262081, 4160105226881, 253399862985121, 997027328131841, 212479323351825962211841, 188939838859312612896128881921, 22828424707602602744356458636161, 661045104283639247572028952777478721
Offset: 1

Views

Author

Robert Price, Dec 03 2014

Keywords

Comments

a(13) is too large to display here. It has 62 digits and is the 210th term in A000383.

Crossrefs

Cf. A001590, A001631, A100683, A231574, A231575, A232543, A214899, A020992, A233554, A214727, A234696, A141523, A235862, A214825, A235873, A001630, A241660, A247027, A000288, A247561, A000322, A248920, A000383, A247192.

Programs

  • Mathematica
    a={1,1,1,1,1,1}; For[n=6, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[5]]=sum]
Showing 1-10 of 56 results. Next

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

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