A135724 Fibonacci numbers whose indices are prime Fibonacci numbers: a(n) = Fibonacci(A001605(n)).
1, 2, 5, 233, 1779979416004714189, 2211236406303914545699412969744873993387956988653
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..7
Programs
-
Mathematica
a = {}; b = {}; Do[If[PrimeQ[c = Fibonacci[n]], w = Fibonacci[Fibonacci[n]]; AppendTo[a, w]; AppendTo[b, n]], {n, 1, 31}]; a Fibonacci[#]&/@Select[Fibonacci[Range[20]],PrimeQ] (* Harvey P. Dale, Apr 28 2023 *)
Extensions
Corrected by Harvey P. Dale, Apr 28 2023
Comments