%I #17 Feb 20 2014 17:14:45
%S 1,3,27,429,9609,277107,9772803,407452221,19604840481,1069202914083,
%T 65177482634667,4391636680582029,324102772814580729,
%U 25999541378465556627,2252597527900572815763,209625760563134613131421
%N Number of increasing ordered rooted trees with n generators.
%C A generator is a leaf or a node with just one child.
%C In an increasing rooted tree, nodes are numbered and numbers increase as you move away from root.
%H Vaclav Kotesovec, <a href="/A108525/b108525.txt">Table of n, a(n) for n = 1..200</a>
%H <a href="/index/Ro#rooted">Index entries for sequences related to rooted trees</a>
%F E.g.f. satisfies: A(x) = -1 + 2*A'(x) - A'(x)/(1-A(x))^2, corrected by _Vaclav Kotesovec_ and _Paul D. Hanna_, Feb 20 2014
%F A(x) = Series_Reversion( (log(1-x) + 7*log(1+x) + 2/(x-1))/4 + 1/2). - _Vaclav Kotesovec_, Feb 20 2014
%F a(n) ~ sqrt(4-sqrt(2)) * 2^(3*n-13/4) * n^(n-1) / (exp(n) * (4-4*sqrt(2)-log(2)+14*log(2-1/sqrt(2)))^(n-1/2)). - _Vaclav Kotesovec_, Feb 20 2014
%t Rest[CoefficientList[InverseSeries[Series[(Log[1-x]+7*Log[1+x]+2/(x-1))/4+1/2,{x,0,20}],x],x]*Range[0,20]!] (* _Vaclav Kotesovec_, Feb 20 2014 *)
%o (PARI) {a(n)=local(A=x); for(i=1, n, A=intformal((A-1)^2 * (1+A) /(1 - 4*A + 2*A^2)+O(x^n))); n!*polcoeff(A, n)};
%o for(n=1, 20, print1(a(n), ", ")); /* _Vaclav Kotesovec_, Feb 20 2014 */
%Y Cf. A108521-A108529, A001147.
%K nonn
%O 1,2
%A _Christian G. Bower_, Jun 07 2005