OFFSET
0,6
LINKS
Alois P. Heinz, Rows n = 0..40, flattened
EXAMPLE
T(3,0) = 1: 1|2|3.
T(3,1) = 3: 12|3, 13|2, 1|23.
T(3,3) = 1: 123.
Triangle T(n,k) begins:
1;
1;
1, 1;
1, 3, 0, 1;
1, 6, 3, 4, 0, 0, 1;
1, 10, 15, 10, 10, 0, 5, 0, 0, 0, 1;
1, 15, 45, 35, 60, 0, 25, 15, 0, 0, 6, 0, 0, 0, 0, 1;
MAPLE
b:= proc(n, l) option remember; `if`(n=0, x^
add(j*(j-1)/2, j=l), b(n-1, [l[], 1])+
add(b(n-1, subsop(j=l[j]+1, l)), j=1..nops(l)))
end:
T:= n-> (p-> seq(coeff(p, x, i), i=0..degree(p)))(b(n, [])):
seq(T(n), n=0..10);
MATHEMATICA
b[n_, l_] := b[n, l] = If[n == 0, x^Sum[j*(j-1)/2, {j, l}], b[n-1, Append[l, 1]] + Sum[b[n-1, ReplacePart[l, j -> l[[j]]+1]], {j, 1, Length[l]}]];
T[n_] := CoefficientList[b[n, {}], x];
Table[T[n], {n, 0, 10}] // Flatten (* Jean-François Alcover, Apr 29 2022, after Alois P. Heinz *)
CROSSREFS
KEYWORD
AUTHOR
Alois P. Heinz, Mar 28 2016
STATUS
approved