OFFSET
0,9
COMMENTS
FORMULA
G.f. G=G(t,z) satisfies: G(t,z) = 1/(1 - z + tz^2 - tz^2*G(t,tz)) (yielding a continued-fraction expression for G(t,z)).
EXAMPLE
T(4,2)=2 because we have HUHD and UHDH, where U=(1,1), H=(1,0), D=(1,-1).
Triangle starts:
1;
1;
1;
1, 0, 1;
1, 0, 2, 1;
1, 0, 3, 2, 1, 0, 1;
1, 0, 4, 3, 3, 1, 2, 2, 1;
MAPLE
g[0] := 1/(1-z+t*z^2-t*z^2*g[1]): for n to 15 do g[n] := subs({z = t*z, g[n] = g[n+1]}, g[n-1]) end do: G := subs(g[16] = 0, g[0]): Gser := simplify(series(G, z = 0, 15)): for n from 0 to 10 do P[n] := sort(coeff(Gser, z, n)) end do: d := proc (n) if n = 0 then 0 elif `mod`(n, 2) = 0 then (1/4)*(n-2)*(n+2) else (1/4)*(n-1)*(n+1) end if end proc: for n from 0 to 10 do seq(coeff(P[n], t, k), k = 0 .. d(n)) end do; # yields sequence in triangular form
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Emeric Deutsch, Feb 08 2010
EXTENSIONS
Keyword tabf added by Michel Marcus, Apr 09 2013
STATUS
approved