OFFSET
0,5
LINKS
Alois P. Heinz, Rows n = 0..120, flattened
EXAMPLE
T(0,0) = 1: [].
T(1,1) = 1: [1].
T(2,1) = 2: [1,1], [2].
T(4,1) = 3: [1,1,1,1], [2,2], [4].
T(4,2) = 1: [2,1,1]; part 2 occurs once and part 1 occurs twice.
T(5,2) = 3: [2,1,1,1], [2,2,1], [3,1,1].
T(7,2) = 8: [2,1,1,1,1,1], [2,2,1,1,1], [2,2,2,1], [3,1,1,1,1], [3,2,2], [3,3,1], [4,1,1,1], [5,1,1].
T(10,1) = 4: [1,1,1,1,1,1,1,1,1,1], [2,2,2,2,2], [5,5], [10].
T(10,3) = 1: [3,2,2,1,1,1].
Triangle T(n,k) begins:
1;
0, 1;
0, 2;
0, 2;
0, 3, 1;
0, 2, 3;
0, 4, 3;
0, 2, 8;
0, 4, 9;
0, 3, 12;
0, 4, 16, 1;
MAPLE
b:= proc(n, i, t, s) option remember;
`if`(nops(s)>t, 0, `if`(n=0, 1, `if`(i<1, 0, b(n, i-1, t, s)+
add(`if`(j in s, 0, b(n-i*j, i-1, t, s union {j})), j=1..n/i))))
end:
g:= proc(n) local i; for i while i*(i+1)*(i+2)/6<=n do od; i-1 end:
T:= n-> seq(b(n, n, k, {}) -b(n, n, k-1, {}), k=0..g(n)):
seq(T(n), n=0..30);
MATHEMATICA
b[n_, i_, t_, s_] := b[n, i, t, s] = If[Length[s] > t, 0, If[n == 0, 1, If[i < 1, 0, b[n, i-1, t, s] + Sum[If[MemberQ[s, j], 0, b[n-i*j, i-1, t, s ~Union~ {j}]], {j, 1, n/i}]]]]; g[n_] := Module[{i}, For[ i = 1, i*(i+1)*(i+2)/6 <= n , i++]; i-1 ]; t[n_] := Table [b[n, n, k, {}] - b[n, n, k-1, {}], {k, 0, g[n]}]; Table [t[n], {n, 0, 30}] // Flatten (* Jean-François Alcover, Dec 19 2013, translated from Maple *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Alois P. Heinz, May 01 2012
STATUS
approved