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

A121605 Primes of the form (Fibonacci[n+3] + 2) = A018910[n], Pisot sequence L(4,5).

Original entry on oeis.org

5, 7, 23, 379, 17713, 102334157, 3416454622906709, 1100087778366101933, 468340976726457153752543329995931, 40934782466626840596168752972961528246149
Offset: 1

Views

Author

Alexander Adamchuk, Aug 09 2006

Keywords

Comments

a(n) = Fibonacci[A121606[n] + 3 ] + 2. Indices n = {1,2,5,11,19,37,73,85,155,193,227,233,257,785,797,1277,2371,2771,...} corresponding to prime A018910[n] = (Fibonacci[n+3] + 2) are listed in A121606[n].

Crossrefs

Programs

  • Mathematica
    Select[Table[Fibonacci[n+3]+2,{n,1,300}],PrimeQ]

A121606 Indices n such that A018910[n] = (Fibonacci[n+3] + 2) are primes.

Original entry on oeis.org

1, 2, 5, 11, 19, 37, 73, 85, 155, 193, 227, 233, 257, 785, 797, 1277, 2371, 2771, 4213, 9107
Offset: 1

Views

Author

Alexander Adamchuk, Aug 09 2006

Keywords

Comments

A018910[n] is Pisot sequence L(4,5). Prime Pisot L(4,5) numbers are A018910[a(n)] = Fibonacci[a(n) + 3 ] + 2 = {5,7,23,379,17713,102334157,...} = A121605[n]. Most listed a(n) are prime except a(8),a(9),a(14),a(18).

Crossrefs

Programs

  • Mathematica
    Do[f=Fibonacci[n+3]+2;If[PrimeQ[f],Print[n]],{n,1,3000}]
    Select[Range[10000],PrimeQ[Fibonacci[#+3]+2]&] (* Harvey P. Dale, Jul 01 2019 *)

Extensions

More terms from Harvey P. Dale, Jul 01 2019
Showing 1-2 of 2 results.