A343841 a(n) = Sum{k=0..n} (-1)^(n-k)*binomial(n, k)*Stirling2(n, k).

1, 1, -1, -5, 15, 56, -455, -237, 16947, -64220, -529494, 6833608, -8606015, -459331677, 4335744673, 6800310151, -518075832085, 4315086396640, 19931595013738, -812870258798156, 6648395876520816, 46852711038750520, -1752440325584024944, 15485712825845269456

Offset

0,4

Links

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

Maple

a := n -> add((-1)^(n-k)*binomial(n, k)*Stirling2(n, k), k=0..n):
seq(a(n), n = 0..24);

Mathematica

a[n_] := Sum[(-1)^(n - k) * Binomial[n, k] * StirlingS2[n, k], {k, 0, n}]; Array[a, 24, 0] (* Amiram Eldar, May 07 2021 *)

Prog

(PARI) a(n) = sum(k=0, n, (-1)^(n-k)*binomial(n, k)*stirling(n, k, 2)); \\ Michel Marcus, May 07 2021

Crossrefs

Cf. A048993, A122455, A211210, A317274.

Sequence in context: A165731 A309117 A307349 * A203294 A149589 A110614

Adjacent sequences: A343838 A343839 A343840 * A343842 A343843 A343844

Keyword

sign

Author

Peter Luschny, May 04 2021

Status

approved