A084963 a(0) = 7, a(n+1) = Fibonacci(a(n)).

7, 13, 233, 2211236406303914545699412969744873993387956988653

Offset

0,1

Comments

Iteration of the Fibonacci sequence.

a(3) = 2.2112... * 10^48.

Links

Table of n, a(n) for n=0..3.

Example

a(2) = F(a(1)) = F(13) = 233.

Maple

a:= proc(n) option remember; `if`(n=0, 7,
       (<<0|1>, <1|1>>^a(n-1))[1, 2])
    end:
seq(a(n), n=0..3);  # Alois P. Heinz, May 09 2020

Mathematica

a[m_] := Module[{ex = 7}, Do[ex = Fibonacci[ex], {m}]; ex] Table[a[m], {m, 0, 3}]
NestList[Fibonacci[#]&, 7, 3] (* Harvey P. Dale, Mar 18 2018 *)

Crossrefs

Cf. A000045, A084962.

Sequence in context: A181492 A243368 A317209 * A139188 A064119 A224984

Adjacent sequences: A084960 A084961 A084962 * A084964 A084965 A084966

Keyword

nonn

Author

Hollie L. Buchanan II, Jun 14 2003

Status

approved