A362315 a(n) = n! * Sum_{k=0..floor(n/4)} (-n/4)^k /(k! * (n-4*k)!).

1, 1, 1, 1, -23, -149, -539, -1469, 77281, 911737, 5657401, 25134121, -2065730039, -35352993389, -310739232803, -1913714425349, 213881558916481, 4797269708789041, 54560246286936241, 429606655679843857, -60718212515535701399, -1684610587476711352709

Offset

0,5

Links

Winston de Greef, Table of n, a(n) for n = 0..431

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

Formula

a(n) = n! * [x^n] exp(x - n*x^4/4).

E.g.f.: exp( ( LambertW(x^4) )^(1/4) ) / (1 + LambertW(x^4)).

Prog

(PARI) my(N=30, x='x+O('x^N)); Vec(serlaplace(exp(lambertw(x^4)^(1/4))/(1+lambertw(x^4))))

Crossrefs

Cf. A362276, A362304, A362320.

Sequence in context: A268778 A231207 A142902 * A125333 A126491 A142044

Adjacent sequences: A362312 A362313 A362314 * A362316 A362317 A362318

Keyword

sign

Author

Seiichi Manyama, Apr 15 2023

Status

approved