OFFSET
0,6
LINKS
Seiichi Manyama, Rows n = 0..481, flattened
EXAMPLE
First few rows are:
1;
1, 1;
1, 1;
2, 2, 1;
3, 3, 1;
5, 5, 2;
9, 9, 4, 1;
15, 15, 6, 1.
MAPLE
T:= proc(n, k) option remember; `if`(k<0 or k*(k+1)/2>n, 0,
`if`(n=0, 1, T(n, k+1)+T(n-k, k-1)))
end:
seq(seq(T(n, k), k=0..floor((sqrt(1+8*n)-1)/2)), n=0..20); # Alois P. Heinz, Sep 01 2017
MATHEMATICA
T[n_, k_] := T[n, k] = If[k < 0 || k(k+1)/2 > n, 0, If[n == 0, 1, T[n, k+1] + T[n-k, k-1]]];
Table[T[n, k], {n, 0, 20}, {k, 0, Floor[(Sqrt[8n+1]-1)/2]}] // Flatten (* Jean-François Alcover, Nov 14 2020, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Seiichi Manyama, Sep 01 2017
STATUS
approved