|
|
A084963
|
|
a(0) = 7, a(n+1) = Fibonacci(a(n)).
|
|
1
|
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
Iteration of the Fibonacci sequence.
a(3) = 2.2112... * 10^48.
|
|
LINKS
|
|
|
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:
|
|
MATHEMATICA
|
a[m_] := Module[{ex = 7}, Do[ex = Fibonacci[ex], {m}]; ex] Table[a[m], {m, 0, 3}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|