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

1, 1, -1, 10, -111, 1716, -33755, 807738, -22782207, 740204776, -27226430739, 1118416240470, -50750734988063, 2521219487859372, -136098630522431499, 7932551567421395866, -496501182232557828735, 33214032504796887027408

Offset

0,4

Links

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

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

Formula

E.g.f.: exp( LambertW(2*x * exp(x))/2 ).

a(n) = Sum_{k=0..n} k^(n-k) * (-2*k+1)^(k-1) * binomial(n,k).

Prog

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

Crossrefs

Cf. A273954, A360473, A362656, A362672.

Sequence in context: A084031 A210507 A066275 * A344398 A046164 A322724

Adjacent sequences: A362668 A362669 A362670 * A362672 A362673 A362674

Keyword

sign

Author

Seiichi Manyama, Apr 29 2023

Status

approved