OFFSET
0,5
FORMULA
MATHEMATICA
nmax = 26; CoefficientList[Series[Exp[1 - Exp[1 - Exp[x]]], {x, 0, nmax}], x] Range[0, nmax]!
Table[Sum[(-1)^k StirlingS2[n, k] BellB[k, -1], {k, 0, n}], {n, 0, 26}]
a[n_] := a[n] = -Sum[Binomial[n - 1, k - 1] BellB[k, -1] a[n - k], {k, 1, n}]; a[0] = 1; Table[a[n], {n, 0, 26}]
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Jun 03 2019
STATUS
approved