A329967 a(0) = 1; a(n) = Sum_{k=1..n} Stirling1(n,k) * a(n-k).
1, 1, 0, -2, 7, 259, -28726, -21126778, 106100219840, 4280272610298752, -1553116380131413822408, -5635994212344216419883091608, 224970666556043231138664445792724812, 107761317610991666102026987955237496031475980
Offset: 0
Keywords
Programs
-
Mathematica
a[n_] := a[n] = Sum[StirlingS1[n, k] a[n - k], {k, 1, n}]; a[0] = 1; Table[a[n], {n, 0, 13}]