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,4

Links

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

Mathematica

a[n_] := a[n] = Sum[StirlingS1[n, k] a[n - k], {k, 1, n}]; a[0] = 1; Table[a[n], {n, 0, 13}]

Crossrefs

Cf. A008275, A246040, A308444, A329968.

Sequence in context: A343928 A294827 A295610 * A012942 A208018 A013058

Adjacent sequences: A329964 A329965 A329966 * A329968 A329969 A329970

Keyword

sign

Author

Ilya Gutkovskiy, Nov 26 2019

Status

approved