cp's OEIS Frontend

A193976 Mirror of the triangle A193975.

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