OFFSET
0,4
LINKS
Alois P. Heinz, Rows n = 0..140, flattened
Emeric Deutsch, Problem 10658: Another Type of Lattice Path, American Math. Monthly, 107, 2000, 368-370.
FORMULA
G.f.: G(t, z)=1/(1-zA-tzA^2)-1, where A=1+zA^2+zA^3=(2/3)*sqrt((z+3)/z)*sin((1/3)*arcsin(sqrt(z)*(z+18)/(z+3)^(3/2)))-1/3 (the g.f. of A027307).
EXAMPLE
T(2,1)=6 because we have uUddd, Uddud, UddUdd, Ududd, UdUddd and Uuddd.
Triangle begins:
1;
1,1;
3,6,1;
15,39,11,1;
97,284,100,16,1;
MAPLE
A:=(2/3)*sqrt((z+3)/z)*sin((1/3)*arcsin(sqrt(z)*(z+18)/(z+3)^(3/2)))-1/3: G:=1/(1-z*A-t*z*A^2): Gser:=simplify(series(G, z=0, 12)): P[0]:=1: for n from 1 to 9 do P[n]:=coeff(Gser, z^n) od: for n from 0 to 9 do seq(coeff(t*P[n], t^k), k=1..n+1) od; # yields sequence in triangular form
# second Maple program:
b:= proc(x, y, t) option remember; expand(`if`(y<0 or y>x, 0,
`if`(x=0, 1, b(x-1, y-1, false)+b(x-1, y+2, t)*
`if`(t, z, 1)+b(x-2, y+1, t))))
end:
T:= n-> (p-> seq(coeff(p, z, i), i=0..n))(b(3*n, 0, true)):
seq(T(n), n=0..10); # Alois P. Heinz, Oct 06 2015
MATHEMATICA
b[x_, y_, t_] := b[x, y, t] = Expand[If[y<0 || y>x, 0, If[x==0, 1, b[x-1, y - 1, False] + b[x-1, y+2, t]*If[t, z, 1] + b[x-2, y+1, t]]]]; T[n_] := Function[p, Table[Coefficient[p, z, i], {i, 0, n}]][ b[3*n, 0, True]]; Table[T[n], {n, 0, 10}] // Flatten (* Jean-François Alcover, Jan 29 2016, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Emeric Deutsch, Jun 08 2005
STATUS
approved