%I #10 Oct 03 2013 01:13:51
%S 1,1,3,7,22,54,192,496,1722,4799,17013,48362,169458,498733,1776570,
%T 5331037,18608396,57109292,201213331,625146398,2176243724,6873338754,
%U 24052502138,76626395556,265774736523,856909651252,2979519037203,9675077715466,33455355338926,109591055905415
%N G.f. satisfies: A(x) = x*exp( Sum_{n>=1} A(Lucas(n)*x^n) / n ).
%C Compare to: G(x) = x*exp( Sum_{n>=1} G(x^n)/n ), which is the g.f. of A000081, the number of rooted trees with n nodes.
%C Compare to: exp( Sum_{n>=1} Lucas(n)*x^n/n ) = 1/(1-x-x^2), which is the g.f. of the Fibonacci numbers.
%C The limit a(n+1)/a(n) seems to exist (near 3.5...); is this true?
%e G.f.: A(x) = x + x^2 + 3*x^3 + 7*x^4 + 22*x^5 + 54*x^6 + 192*x^7 + 496*x^8 +...
%e where
%e A(x) = x*exp(A(x) + A(3*x^2)/2 + A(4*x^3)/3 + A(7*x^4)/4 + A(11*x^5)/5 + A(18*x^6)/6 + A(29*x^7)/7 + A(47*x^8)/8 + A(76*x^9)/9 + A(123*x^10)/10 +...).
%o (PARI) {Lucas(n)=fibonacci(n-1)+fibonacci(n+1)}
%o {a(n)=local(A=x);for(i=1,n,A=x*exp(sum(k=1,n,subst(A,x,Lucas(k)*x^k +x*O(x^n))/k)));polcoeff(A,n)}
%o for(n=1,30,print1(a(n),", "))
%Y Cf. A000032 (Lucas), A229807, A229901.
%K nonn
%O 1,3
%A _Paul D. Hanna_, Oct 02 2013