login
A133711
Column l=4 of irregular triangle in A133709.
2
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,3
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 *)
CROSSREFS
Sequence in context: A180294 A330446 A317984 * A184377 A255775 A199831
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 30 2007
STATUS
approved