%I #8 Oct 14 2016 04:23:40
%S 1,1,2,4,8,18,52,232,2402,117668,88187304,4976488920530,
%T 304428188114211553556,1303145665493529877195427353444744,
%U 383170653295945759116409236671895695428812677131461090
%N a(1) = 1, a(n) = Sum(k=1,n-1, a(k)^F(n-k)) where F(m) is the m-th Fibonacci number.
%C Conjecture: limit n->infinity Phi^(Phi^(n-c))/a(n) = 1 where c is a constant = 3.47348961175710091....
%H G. C. Greubel, <a href="/A135422/b135422.txt">Table of n, a(n) for n = 1..20</a>
%t 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 *)
%o (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],","))
%Y Cf. A000045, A001622.
%K nonn
%O 1,3
%A _Gerald McGarvey_, Dec 12 2007