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-7 of 7 results.

A243623 Prime terms in A214829.

Original entry on oeis.org

7, 29, 1087, 1999, 3677, 6763, 5487349608898607, 115507410616162687, 878001744429057971864287, 210582098197038415344728317608265501, 870277059555114378903885645581650740066907
Offset: 1

Views

Author

Robert Price, Jun 07 2014

Keywords

Comments

a(12) has 114 digits and thus is too large to display here. It corresponds to A214829(426).

Links

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554. A214727, A234696, A141523, A235862,A214825, A235873, A214827, A242324, A214827, A214828, A214829, A242572, A242576, A243622.

Programs

  • Maple
    f:= gfun:-rectoproc({a(n) = a(n-1) + a(n-2) + a(n-3), a(0) = 1, a(1) = 7, a(2) = 7},a(n),remember):
select(isprime, map(f, [$2..1000])); # Robert Israel, Sep 02 2024
  • Mathematica
    a={1,7,7}; Print["7"]; Print["7"]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]

Extensions

7 inserted as a(1) by Robert Israel, Sep 02 2024

A244001 Indices of primes in A214830.

Original entry on oeis.org

3, 7, 11, 20, 28, 63, 72, 79, 688, 795, 999, 2716, 13220, 15940, 17903, 26832, 28416, 33448, 117923
Offset: 1

Views

Author

Robert Price, Jun 17 2014

Keywords

Comments

a(20) > 2*10^5.

Links

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523,A214825, A235862, A214827, A214828, A214829, A243622, A243623.

Programs

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

A246517 Indices of primes in A141036.

Original entry on oeis.org

0, 5, 14, 26, 33, 222, 234, 482, 937, 1170, 1290, 1877, 1897, 3413, 6017, 9365, 47470, 48254, 97421, 102057, 119689, 132418, 192517, 194442
Offset: 1

Views

Author

Robert Price, Aug 28 2014

Keywords

Comments

a(25) > 2*10^5.
A141036(a(n)) = A246518(n).

Links

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523, A214825, A235862, A214827-A214829, A243622, A243623, A214831, A141036.
Cf. A049084.

Programs

  • Haskell
    a246517 n = a246517_list !! (n-1)
a246517_list = filter ((== 1) . a010051'' . a141036) [0..]
-- Reinhard Zumkeller, Sep 15 2014
  • Mathematica
    a={2,1,1}; Print[0]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[n]]; a=RotateLeft[a]; a[[3]]=sum]

A246518 Prime terms in A141036.

Original entry on oeis.org

2, 11, 2713, 4066709, 289593761, 30236674150891013353640837416685668536004108580572237299601, 45323907186142905348893078704293178796516046414129798590935901
Offset: 1

Views

Author

Robert Price, Aug 28 2014

Keywords

Comments

a(8) has 91 digits and thus is too large to display here. It corresponds to A141036(482).
a(n) = A141036(A246517(n)).

Links

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554. A214727, A234696, A141523, A235862, A214825, A235873, A242324, A214827-A214829, A242572, A242576, A243622, A244001, A214831, A244002, A141036, A246517.
Cf. A010051.

Programs

  • Haskell
    a246518 n = a246518_list !! (n-1)
a246518_list = filter ((== 1) . a010051'') $ a141036_list
-- Reinhard Zumkeller, Sep 15 2014
  • Mathematica
    a={2,1,1}; Print[2]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]

A244002 Prime terms in A214830.

Original entry on oeis.org

17, 199, 2273, 547609, 71724269, 131339891338466303, 31640376596545867021, 2253137772896035203743
Offset: 1

Views

Author

Robert Price, Jun 17 2014

Keywords

Comments

a(10) has 182 digits and thus is too large to display here. It corresponds to A214830(688).

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554. A214727, A234696, A141523, A235862,A214825, A235873, A214827, A242324, A214827, A214828, A214829, A242572, A242576, A243622, A214829, A244001.

Programs

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

A244930 Indices of primes in A214831.

Original entry on oeis.org

3, 4, 7, 8, 16, 26, 34, 42, 78, 94, 101, 107, 216, 255, 543, 562, 851, 981, 1099, 1528, 1824, 1955, 2122, 2488, 2500, 15331, 15961, 24107, 24938, 26051, 58504, 61617, 81034, 85119, 89768, 90597, 97191, 116899, 195346
Offset: 1

Views

Author

Robert Price, Jul 08 2014

Keywords

Comments

a(40) > 2*10^5.

Links

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523, A214825, A235862, A214827, A214828, A214829, A243622, A243623, A214831.

Programs

A244931 Prime terms in A214831.

Original entry on oeis.org

19, 37, 223, 409, 53617, 23757289, 3111662089, 407556643177, 1372675688565303822697, 23548271681390871672120649, 1676892190264006259992141409, 64923481849284379431377700019
Offset: 1

Views

Author

Robert Price, Jul 08 2014

Keywords

Comments

a(13) has 58 digits and thus is too large to display here. It corresponds to A214831(216).

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554. A214727, A234696, A141523, A235862, A214825, A235873, A214827, A242324, A214827, A214828, A214829, A242572, A242576, A243622, A214829, A244001, A214831, A244002.

Programs

  • Mathematica
    a={1,9,9}; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]
Showing 1-7 of 7 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.