OFFSET
1,3
MAPLE
MATHEMATICA
T[m_, l_] := T[m, l] = If[l == 1, 1, Sum[(-1)^i Binomial[l, i]* Binomial[2^(l - i) + m - 2, m], {i, 0, l - 1}] - Sum[StirlingS2[l, i]* T[m, i], {i, 1, l - 1}]];
Table[T[m, 4], {m, 1, 30}] (* Jean-François Alcover, Apr 03 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 30 2007
STATUS
approved