A133712 Column l=5 of irregular triangle in A133709.

0, 0, 420, 15225, 185031, 1438906, 8689306, 44352346, 200070606, 818907792, 3093635652, 10914809127, 36278256537, 114357327402, 343708626298, 989318816383, 2737219679833, 7302776865288, 18839417766108, 47108352127209, 114421884019959

Offset: 1

Author

N. J. A. Sloane, Dec 30 2007

Keywords

• nonn

Crossrefs

Cf. A133709.

Programs

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 *)