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

Links

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

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

Adjacent sequences: A133709 A133710 A133711 * A133713 A133714 A133715

Keyword

nonn

Author

N. J. A. Sloane, Dec 30 2007

Status

approved