OFFSET
1,3
LINKS
Eric Weisstein's World of Mathematics, Bell Polynomial
FORMULA
a(n) = Sum_{k=0..n-1} (-1)^k * Stirling2(n-1,k) * n^(k-1).
a(n) = BellPolynomial_(n-1)(-n) / n.
MATHEMATICA
Table[Sum[(-1)^k StirlingS2[n - 1, k] n^(k - 1), {k, 0, n - 1}], {n, 1, 22}]
Table[BellB[n - 1, -n]/n, {n, 1, 22}]
PROG
(PARI) a(n)={sum(k=0, n-1, (-1)^k * stirling(n-1, k, 2) * n^(k-1))} \\ Andrew Howroyd, May 18 2020
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, May 18 2020
STATUS
approved