OFFSET
1,2
COMMENTS
LINKS
Paul D. Hanna, Table of n, a(n) for n = 1..300
FORMULA
O.g.f. A(x) satisfies: [x^n] exp( n * A(x) ) = (2*n - 1) * [x^(n-1)] exp( n * A(x) ) for n>=1.
a(n) ~ c * 2^n * n!, where c = 0.321697697353832218399635... - Vaclav Kotesovec, Mar 21 2018
EXAMPLE
G.f.: A(x) = x + 2*x^2 + 10*x^3 + 78*x^4 + 802*x^5 + 10058*x^6 + 147442*x^7 + 2461054*x^8 + 45960098*x^9 + 948268402*x^10 + ...
where
A(x) = x*(1 + x*A'(x)) / (1 - x*A'(x)).
RELATED SERIES.
A'(x) = 1 + 4*x + 30*x^2 + 312*x^3 + 4010*x^4 + 60348*x^5 + 1032094*x^6 + 19688432*x^7 + 413640882*x^8 + ...
exp(A(x)) = 1 + x + 5*x^2/2! + 73*x^3/3! + 2185*x^4/4! + 108881*x^5/5! + 8012941*x^6/6! + 809101945*x^7/7! + 106751544593*x^8/8! + ... + A301387*x^n/n! + ...
PROG
(PARI) {a(n) = my(A=x); for(i=0, n, A = x*(1 + x*A')/(1 - x*A' +x*O(x^n)) ); polcoeff(A, n)}
for(n=1, 30, print1(a(n), ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Mar 20 2018
STATUS
approved
