OFFSET
0,2
COMMENTS
LINKS
Alois P. Heinz, Rows n = 0..199, flattened
FORMULA
G.f.: G(t,z) = (1+(1-t)z^2)/(1 - 2z + (1-t)z^2 - (1-t)z^3).
Recurrence relation: T(n,k) = 2T(n-1,k) - T(n-2,k) + T(n-3,k) + T(n-2,k-1) - T(n-3,k-1) for n >= 3.
EXAMPLE
T(6,2) = 5 because we have 010010, 010100, 010101, 001010 and 101010.
Triangle starts:
1;
2;
4;
7, 1;
12, 4;
21, 10, 1;
37, 22, 5;
65, 47, 15, 1;
114, 98, 38, 6;
200, 199, 91, 21, 1;
351, 396, 210, 60, 7;
...
MAPLE
G:=(1+(1-t)*z^2)/(1-2*z+(1-t)*z^2-(1-t)*z^3): Gser:=simplify(series(G, z=0, 18)): P[0]:=1: for n from 1 to 16 do P[n]:=sort(coeff(Gser, z^n)) od: 1; for n from 1 to 16 do seq(coeff(P[n], t, j), j=0..ceil(n/2)-1) od; # yields sequence in triangular form
# Alternative:
b:= proc(n, t) option remember; `if`(n=0, 1,
b(n-1, [1, 3, 1][t])+expand(b(n-1, 2)*`if`(t=3, x, 1)))
end:
T:= n-> (p-> seq(coeff(p, x, i), i=0..degree(p)))(b(n, 1)):
seq(T(n), n=0..15); # Alois P. Heinz, Apr 02 2026
MATHEMATICA
nn=15; Map[Select[#, #>0&]&, CoefficientList[Series[1/(1-2z-(u-1)z^3/(1-(u-1)z^2)), {z, 0, nn}], {z, u}]]//Grid (* Geoffrey Critzer, Dec 03 2013 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Emeric Deutsch, Apr 27 2006
STATUS
approved
