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.

Previous Showing 21-30 of 54 results. Next

A247192 Indices of primes in the hexanacci numbers sequence A000383.

Original entry on oeis.org

7, 9, 30, 31, 33, 46, 52, 54, 82, 102, 109, 124, 210, 301, 351, 365, 369, 1045, 2044, 2125, 2143, 2815, 4377, 4754, 4893, 7310, 11558, 17602, 17929, 28389, 32100, 44298, 106725, 151678, 197953
Offset: 1

Views

Author

Robert Price, Dec 03 2014

Keywords

Comments

a(36) > 2*10^5.

Links

Crossrefs

Cf. A001590, A001631, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523, A214825, A235862, A000288, A000322, A000383, A249413.

Programs

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

A248920 Indices of primes in the pentanacci numbers sequence A000322.

Original entry on oeis.org

5, 7, 13, 18, 19, 34, 35, 38, 43, 48, 188, 286, 450, 501, 759, 1446, 2021, 2419, 2997, 3715, 5677, 13566, 46303, 57174, 108844, 117145, 166683, 178863
Offset: 1

Views

Author

Robert Price, Oct 16 2014

Keywords

Comments

a(29) > 2*10^5.

Links

Crossrefs

Cf. A001590, A001631, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523, A214825, A235862, A000288, A000322.

Programs

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

A242572 Indices of primes in A214828.

Original entry on oeis.org

3, 7, 8, 16, 19, 36, 44, 151, 292, 448, 467, 896, 1148, 1607, 1711, 1956, 2020, 6635, 14228, 25519, 43140, 74984, 77696, 137975
Offset: 1

Views

Author

Robert Price, May 17 2014

Keywords

Comments

a(25) > 2*10^5.

Links

Crossrefs

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

Programs

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

A253318 Indices of primes in the 7th-order Fibonacci number sequence, A060455.

Original entry on oeis.org

7, 8, 11, 12, 14, 15, 16, 17, 18, 19, 21, 23, 26, 32, 33, 36, 42, 44, 71, 72, 137, 180, 193, 285, 679, 955, 1018, 1155, 1176, 1191, 2149, 2590, 2757, 3364, 4233, 6243, 6364, 7443, 10194, 11254, 13318, 18995, 20478, 22647, 29711, 34769, 61815, 71993, 107494, 135942, 148831
Offset: 1

Views

Author

Robert Price, Dec 30 2014

Keywords

Comments

a(52) > 2*10^5.

Links

Crossrefs

Cf. A001590, A001631, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523, A214825, A235862, A000288, A000322, A000383, A249413, A060455.

Programs

  • Mathematica
    a={1,1,1,1,1,1,1}; step=7; lst={}; For[n=step,n<=1000,n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst,n]]; a=RotateLeft[a]; a[[7]]=sum]; lst

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]

A253705 Indices of primes in the 8th-order Fibonacci number sequence, A079262.

Original entry on oeis.org

9, 17, 25, 125, 350, 1322, 108935, 199528
Offset: 1

Views

Author

Robert Price, Jan 09 2015

Keywords

Comments

a(9) > 2*10^5.

Links

Crossrefs

Cf. A001590, A001631, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523, A214825, A235862, A000288, A000322, A000383, A249413, A060455, A079262.

Programs

  • Mathematica
    a={0,0,0,0,0,0,0,1}; step=8; lst={}; For[n=step,n<=1000,n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst,n]]; a=RotateLeft[a]; a[[step]]=sum]; lst
Flatten[Position[LinearRecurrence[{1,1,1,1,1,1,1,1},{0,0,0,0,0,0,0,1},200000],?PrimeQ]]-1 (* The program takes a long time to run *) (* _Harvey P. Dale, Apr 26 2018 *)
  • PARI
    lista(nn) = {gf = x^7/(1-x-x^2-x^3-x^4-x^5-x^6-x^7-x^8); for (n=0, nn, if (isprime(polcoeff(gf+O(x^(n+1)), n)), print1(n, ", ")););} \\ Michel Marcus, Jan 12 2015

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]

A253333 Primes in the 7th-order Fibonacci numbers A060455.

Original entry on oeis.org

7, 13, 97, 193, 769, 1531, 3049, 6073, 12097, 24097, 95617, 379399, 2998753, 187339729, 373174033, 2949551617, 184265983633, 731152932481, 88025699967469825543, 175344042716296888429, 4979552865927484193343796114081304399449
Offset: 1

Views

Author

Robert Price, Dec 30 2014

Keywords

Comments

a(22) is too large to display here. It has 53 digits and is the 180th term in A060455.

Links

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, A060455, A253318.

Programs

  • Mathematica
    a={1,1,1,1,1,1,1}; step=7; lst={}; For[n=step,n<=1000,n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst,sum]]; a=RotateLeft[a]; a[[7]]=sum]; lst
With[{c=PadRight[{},7,1]},Select[LinearRecurrence[c,c,150],PrimeQ]] (* Harvey P. Dale, May 08 2015 *)
  • PARI
    lista(nn) = {gf = ( -1+x^2+2*x^3+3*x^4+4*x^5+5*x^6 ) / ( -1+x+x^2+x^3+x^4+x^5+x^6+x^7 ); for (n=0, nn, if (isprime(p=polcoeff(gf+O(x^(n+1)), n)), print1(p, ", ")););} \\ Michel Marcus, Jan 11 2015
Previous Showing 21-30 of 54 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.