|
|
A133712
|
|
Column l=5 of irregular triangle in A133709.
|
|
2
|
|
|
0, 0, 420, 15225, 185031, 1438906, 8689306, 44352346, 200070606, 818907792, 3093635652, 10914809127, 36278256537, 114357327402, 343708626298, 989318816383, 2737219679833, 7302776865288, 18839417766108, 47108352127209, 114421884019959
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
MAPLE
|
end proc:
|
|
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}]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|