A351277 a(n) = Sum_{k=0..n} (-2*k)^k * Stirling2(n,k).

1, -2, 14, -170, 2910, -64202, 1733278, -55338250, 2039421598, -85204516298, 3979272245662, -205432301027978, 11616783053131934, -714082744228546890, 47409028234931260318, -3380871137079666543114, 257736986308003127354014

Offset

0,2

Links

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

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

Formula

E.g.f.: 1/(1 + LambertW( 2 * (exp(x) - 1) )), where LambertW() is the Lambert W-function.

a(n) ~ (-1)^n * n^n / (sqrt(2*exp(1) - 1) * exp(n) * (1 - log(exp(1) - 1/2))^(n + 1/2)). - Vaclav Kotesovec, Feb 06 2022

Prog

(PARI) a(n) = sum(k=0, n, (-2*k)^k*stirling(n, k, 2));
(PARI) my(N=20, x='x+O('x^N)); Vec(serlaplace(1/(1+lambertw(2*(exp(x)-1)))))

Crossrefs

Cf. A351218, A351275, A351276.

Sequence in context: A188194 A046247 A141012 * A235369 A351274 A228476

Adjacent sequences: A351274 A351275 A351276 * A351278 A351279 A351280

Keyword

sign

Author

Seiichi Manyama, Feb 05 2022

Status

approved