OFFSET
0,2
COMMENTS
LINKS
Alois P. Heinz, n = 0..141, flattened
FORMULA
G.f.: G-1, where G = G(t,z) = [1+(1-t)z]/[1-(2+t)z-2(1-t)z^2]. G.f. of column k is z^(k+1)*(1-2z)^(k-1)/(1-2z-2z^2)^(k+1) (k>=1).
EXAMPLE
T(4,2) = 4 because we have 0001, 0002, 1000 and 2000.
Triangle starts:
1;
3;
8,1;
22,4,1;
60,16,4,1;
MAPLE
G:=(1+(1-t)*z)/(1-(2+t)*z-2*(1-t)*z^2): Gser:=simplify(series(G, z=0, 15)): P[0]:=1: for n from 1 to 12 do P[n]:=sort(coeff(Gser, z^n)) od: 1; for n from 1 to 12 do seq(coeff(P[n], t, j), j=0..n-1) od; # yields sequence in triangular form
MATHEMATICA
nn=15; a=1/(1-2x); b=x/(1-y x)+1; f[list_]:=Select[list, #>0&]; Map[f, CoefficientList[Series[a b/(1-2x^2/((1-y x)(1-2x))), {x, 0, nn}], {x, y}]]//Grid (* Geoffrey Critzer, Nov 19 2012 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Emeric Deutsch, May 24 2006
STATUS
approved