login
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
OFFSET
1,3
MAPLE
A133712 := proc(m)
A133709(m, 5) ;
end proc:
seq(A133712(m), m=1..30) ; # R. J. Mathar, Nov 23 2011
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, 5], {m, 1, 30}] (* Jean-François Alcover, Apr 03 2020 *)
CROSSREFS
Cf. A133709.
Sequence in context: A223365 A288071 A289226 * A058834 A022046 A289348
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 30 2007
STATUS
approved