A133711 Column l=4 of irregular triangle in A133709.

0, 0, 140, 1435, 7693, 30450, 100330, 291265, 769015, 1883436, 4336320, 9475195, 19790605, 39733150, 77020830, 144681850, 264178990, 470096240, 817045500, 1389681375, 2317008105, 3792539410, 6102347050, 9663627675, 15077153821, 23197881100

Offset: 1

Author

N. J. A. Sloane, Dec 30 2007

Keywords

• nonn

Programs

Maple

A133711 := proc(m)
        A133709(m,4) ;
end proc:
seq(A133711(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, 4], {m, 1, 30}] (* Jean-François Alcover, Apr 03 2020 *)