|
%I #12 Apr 03 2020 07:53:18
%S 0,0,420,15225,185031,1438906,8689306,44352346,200070606,818907792,
%T 3093635652,10914809127,36278256537,114357327402,343708626298,
%U 989318816383,2737219679833,7302776865288,18839417766108,47108352127209,114421884019959
%N Column l=5 of irregular triangle in A133709.
%p A133712 := proc(m)
%p A133709(m,5) ;
%p end proc:
%p seq(A133712(m),m=1..30) ; # _R. J. Mathar_, Nov 23 2011
%t 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}]];
%t Table[T[m, 5], {m, 1, 30}] (* _Jean-François Alcover_, Apr 03 2020 *)
%Y Cf. A133709.
%K nonn
%O 1,3
%A _N. J. A. Sloane_, Dec 30 2007
|
