OFFSET
0,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..40
FORMULA
Stirling-Bernoulli transform sends a to b where b(n) = Sum_{i=0..n} (-1)^i*i!*S(n+1, i+1)*b(i).
MAPLE
a:= proc(n) option remember; `if`(n<1, 1,
add((-1)^k*k!*Stirling2(n, k+1)*a(k), k=0..n-1))
end:
seq(a(n), n=0..15); # Alois P. Heinz, May 17 2013
MATHEMATICA
a[n_] := a[n] = If[n<1, 1, Sum[(-1)^k*k!*StirlingS2[n, k+1]*a[k], {k, 0, n-1}]];
Table[a[n], {n, 0, 15}] (* Jean-François Alcover, Sep 01 2022, after Alois P. Heinz *)
CROSSREFS
KEYWORD
sign,eigen
AUTHOR
Christian G. Bower, Jan 09 2000
STATUS
approved