|
%I #5 Mar 30 2012 18:57:39
%S 2,8,3,20,11,4,40,26,14,5,70,50,32,17,6,112,85,60,38,20,7,168,133,100,
%T 70,44,23,8,240,196,154,115,80,50,26,9,330,276,224,175,130,90,56,29,
%U 10,440,375,312,252,196,145,100,62,32,11,572,495,420,348,280,217
%N Mirror of the triangle A193975.
%C A193976 is obtained by reversing the rows of the triangle A193975.
%F Write w(n,k) for the triangle at A193975. The triangle at A193976 is then given by w(n,n-k).
%e First six rows:
%e 2
%e 8.....3
%e 20....11...4
%e 40....26...14...5
%e 70....50...32...17...6
%e 112...85...60...38...20...7
%t z = 11;
%t p[0, x_] := 1; p[n_, x_] := x*p[n - 1, x] + n + 1;
%t q[n_, x_] := p[n, x];
%t p1[n_, k_] := Coefficient[p[n, x], x^k];
%t p1[n_, 0] := p[n, x] /. x -> 0;
%t d[n_, x_] := Sum[p1[n, k]*q[n - 1 - k, x], {k, 0, n - 1}]
%t h[n_] := CoefficientList[d[n, x], {x}]
%t TableForm[Table[Reverse[h[n]], {n, 0, z}]]
%t Flatten[Table[Reverse[h[n]], {n, -1, z}]] (* A193975 *)
%t TableForm[Table[h[n], {n, 0, z}]]
%t Flatten[Table[h[n], {n, -1, z}]] (* A193976 *)
%Y Cf. A193975.
%K nonn,tabl
%O 0,1
%A _Clark Kimberling_, Aug 10 2011
|
