OFFSET
0,5
FORMULA
E.g.f.: Product_{i>=1} (1 + y*x^i).
EXAMPLE
Triangle T(n,k) begins:
1;
0, 1;
0, 2;
0, 6, 6;
0, 24, 24;
0, 120, 240;
0, 720, 1440, 720;
0, 5040, 15120, 5040;
0, 40320, 120960, 80640;
...
MAPLE
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
b(n, i-1)+expand(x*b(n-i, min(i-1, n-i)))*n!/(n-i)!))
end:
T:= n-> (p-> seq(coeff(p, x, i), i=0..degree(p)))(b(n$2)):
seq(T(n), n=0..12); # Alois P. Heinz, Feb 23 2022
MATHEMATICA
nn = 13; Prepend[Map[Prepend[#, 0] &, Drop[Map[Select[#, # > 0 &] &, Range[0, nn]! CoefficientList[Series[Product[1 + y x^i, {i, 1, nn}], {x, 0, nn}], {x, y}]], 1]], {1}] // Grid
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Geoffrey Critzer, Feb 23 2022
STATUS
approved