OFFSET
0,3
COMMENTS
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..320
FORMULA
E.g.f.: A(x) = exp(x*B(x)) where B(x) = (exp(x*B(x)) + exp(x*B(-x)))/2 is the e.g.f. of A198198.
E.g.f. satisfies: log(x) = x*log(y)/(x*y^2 - 2*y*log(y)) + log(2*log(y) - x*y), where y = A(x). - Vaclav Kotesovec, Feb 28 2014
a(n) ~ c * n! * d^n / n^(3/2), where d = 1.9126860724609002014... (see A198198), and c = 1.84843299011729... if n is even, and c = 1.808309580980992... if n is odd. - Vaclav Kotesovec, Feb 28 2014
EXAMPLE
E.g.f.: A(x) = 1 + x + 3*x^2/2! + 10*x^3/3! + 53*x^4/4! + 376*x^5/5! +.. .
Let B(x) = log(A(x))/x = (A(x) + 1/A(-x))/2 then B(x) begins:
B(x) = 1 + x + x^2/2! + 4*x^3/3! + 25*x^4/4! + 216*x^5/5! + 1561*x^6/6! + 19328*x^7/7! +...+ A198198(n)*x^n/n! +...
such that B(x) = (exp(x*B(x)) + exp(x*B(-x)))/2.
PROG
(PARI) {a(n)=local(A=1+x*O(x^n)); for(n=0, n, A=exp(x*(A+1/subst(A, x, -x))/2+x*O(x^n))); n!*polcoeff(A, n)}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Nov 03 2011
STATUS
approved