A193976 - OEIS

%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