OFFSET
0,2
FORMULA
E.g.f. satisfies A(x) = 1/(1 - x * A(x) * exp(x*A(x)))^2.
E.g.f.: B(x)^2, where B(x) is the e.g.f. of A364985.
a(n) = 2 * n! * Sum_{k=0..n} k^(n-k) * binomial(2*n+k+2,k)/( (2*n+k+2)*(n-k)! ).
PROG
(PARI) my(N=20, x='x+O('x^N)); Vec(serlaplace(serreverse(x*(1-x*exp(x))^2)/x))
(PARI) a(n) = 2*n!*sum(k=0, n, k^(n-k)*binomial(2*n+k+2, k)/((2*n+k+2)*(n-k)!));
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Oct 31 2024
STATUS
approved