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

1, 1, 3, 22, 197, 2316, 33967, 595624, 12190761, 285479056, 7531645211, 221124649824, 7152276636397, 252742471065280, 9688895208298503, 400510408002257536, 17759663471017945553, 840937887639033467136, 42351198256293556043827

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^2)) ).

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

Prog

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

Crossrefs

Cf. A273954, A362655.

Cf. A362653, A362673.

Sequence in context: A357031 A207326 A376577 * A376575 A006783 A330668

Adjacent sequences: A362651 A362652 A362653 * A362655 A362656 A362657

Keyword

nonn,changed

Author

Seiichi Manyama, Apr 28 2023

Status

approved