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,3

Links

Table of n, a(n) for n=1..26.

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

Adjacent sequences: A133708 A133709 A133710 * A133712 A133713 A133714

Keyword

nonn

Author

N. J. A. Sloane, Dec 30 2007

Status

approved