OFFSET
0,7
LINKS
Alois P. Heinz, Rows n = 0..250, flattened
FORMULA
G.f.: 1/( 1 - y*x/(1 + y*x) - Sum_{j>=2} x^j/(1 + x^j) ).
EXAMPLE
1;
0, 1;
1, 0;
1, 2;
1, 2, 1;
3, 3, 1;
3, 8, 3;
6, 9, 7, 1;
7, 20, 10, 2;
14, 27, 25, 5;
18, 52, 39, 14, 1;
T(7,2) = 7 because we have: 1+2+1+3, 1+2+3+1, 1+3+1+2, 1+3+2+1, 1+5+1, 2+1+3+1, 3+1+2+1.
MAPLE
b:= proc(n, t) option remember; `if`(n=0, 1, expand(
add(`if`(j=t, 0, b(n-j, j)*`if`(j=1, x, 1)), j=1..n)))
end:
T:= n-> seq(coeff(b(n, 0), x, i), i=0..ceil(n/3)):
seq(T(n), n=0..20); # Alois P. Heinz, Nov 24 2013
MATHEMATICA
nn=10; CoefficientList[Series[1/(1- u z/(1+ u z) - Sum[z^j/(1+z^j), {j, 2, nn}]), {z, 0, nn}], {z, u}]//Grid
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Geoffrey Critzer, Nov 23 2013
STATUS
approved