A372156 - OEIS

A372156

E.g.f. A(x) satisfies A(x) = exp( 2 * x * (1 + x * A(x)^(1/2)) ).

1, 2, 8, 44, 328, 3032, 33964, 445580, 6727984, 114892784, 2192201044, 46233324788, 1068561369352, 26865052934696, 730137962157244, 21334636036296668, 667074635111434336, 22225983296836137440, 786215841115748129956, 29429693502599243538884

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,2

LINKS

Table of n, a(n) for n=0..19.

Eric Weisstein's World of Mathematics, Lambert W-Function.

FORMULA

E.g.f.: A(x) = exp( 2*x - 2*LambertW(-x^2 * exp(x)) ).

If e.g.f. satisfies A(x) = exp( r*x*A(x)^(t/r) * (1 + x*A(x)^(u/r))^s ), then a(n) = r * n! * Sum_{k=0..n} (t*k+u*(n-k)+r)^(k-1) * binomial(s*k,n-k)/k!.

PROG

(PARI) my(N=20, x='x+O('x^N)); Vec(serlaplace(exp(2*x-2*lambertw(-x^2*exp(x)))))

(PARI) a(n, r=2, s=1, t=0, u=1) = r*n!*sum(k=0, n, (t*k+u*(n-k)+r)^(k-1)*binomial(s*k, n-k)/k!);

CROSSREFS

Cf. A125500, A372157.

Sequence in context: A293905 A244430 A190818 * A330444 A253949 A336545

Adjacent sequences: A372153 A372154 A372155 * A372157 A372158 A372159

KEYWORD

nonn

AUTHOR

Seiichi Manyama, Apr 20 2024

STATUS

approved