OFFSET
1,3
COMMENTS
Conjecture: limit n->infinity Phi^(Phi^(n-c))/a(n) = 1 where c is a constant = 3.47348961175710091....
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..20
MATHEMATICA
a[1]:= 1; a[n_] := Sum[a[k]^Fibonacci[n - k], {k, 1, n - 1}]; Join[{1}, Table[a[n], {n, 2, 10}]] (* G. C. Greubel, Oct 13 2016 *)
PROG
(PARI) a=vector(16); a[1]=1; print1("1, "); for(n=2, 16, a[n]=sum(k=1, n-1, a[k]^fibonacci(n-k)); print1(a[n], ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Gerald McGarvey, Dec 12 2007
STATUS
approved