A362655 E.g.f. satisfies A(x) = exp( x * exp(x^3) * A(x) ).

1, 1, 3, 16, 149, 1656, 22567, 369664, 7081209, 155178928, 3830958251, 105267080304, 3187172910517, 105437661606616, 3784329536385231, 146474021771040856, 6081955388047685873, 269686446704697314016, 12719466142269818201299

Offset

0,3

Links

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

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

Formula

E.g.f.: exp( -LambertW(-x * exp(x^3)) ).

a(n) = n! * Sum_{k=0..floor(n/3)} (n-3*k)^k * (n-3*k+1)^(n-3*k-1) / (k! * (n-3*k)!).

Prog

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

Crossrefs

Cf. A273954, A362654.

Cf. A354553, A362674.

Sequence in context: A331538 A306397 A264660 * A368451 A214933 A230323

Adjacent sequences: A362652 A362653 A362654 * A362656 A362657 A362658

Keyword

nonn

Author

Seiichi Manyama, Apr 28 2023

Status

approved