OFFSET
1,5
LINKS
Alois P. Heinz, Rows n = 1..200, flattened
EXAMPLE
Triangle T(n,k) begins:
1;
1, 1;
1, 2, 1;
1, 2, 3, 1;
1, 3, 4, 4, 1;
1, 3, 6, 7, 5, 1;
1, 4, 7, 11, 11, 6, 1;
1, 4, 9, 15, 19, 16, 7, 1;
...
MAPLE
b:= proc(n, k) option remember; expand(`if`(n=0, 1,
x*add(b(n-j, j), j=1..min(n, k+1))))
end:
T:= n-> (p-> seq(coeff(p, x, i), i=1..n))(b(n$2)):
seq(T(n), n=1..14); # Alois P. Heinz, Jan 21 2022
MATHEMATICA
b[n_, k_] := b[n, k] = Expand[If[n == 0, 1,
x*Sum[b[n - j, j], {j, 1, Min[n, k + 1]}]]];
T[n_] := Rest@CoefficientList[b[n, n], x];
Table[T[n], {n, 1, 14}] // Flatten (* Jean-François Alcover, Apr 14 2022, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Vladeta Jovovic, Nov 25 2009
STATUS
approved