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

1, 1, 1, 1, -3, -24, -89, -244, 1681, 24382, 155401, 695146, -7490339, -157336464, -1421454033, -8817579224, 129268310081, 3555528110716, 41578411339441, 329824291072252, -6116622750516899, -207991913454970784, -2985298421745508329

Offset

0,5

Links

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

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

Formula

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

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

Prog

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

Crossrefs

Cf. A362303, A362346.

Cf. A351930.

Sequence in context: A220834 A276243 A211618 * A274954 A156832 A092780

Adjacent sequences: A362342 A362343 A362344 * A362346 A362347 A362348

Keyword

sign

Author

Seiichi Manyama, Apr 16 2023

Status

approved