cp's OEIS Frontend

A193974 Mirror of the triangle A193973.

%I A193974 #5 Mar 30 2012 18:57:39
%S A193974 2,5,3,9,7,4,14,12,9,5,20,18,15,11,6,27,25,22,18,13,7,35,33,30,26,21,
%T A193974 15,8,44,42,39,35,30,24,17,9,54,52,49,45,40,34,27,19,10,65,63,60,56,
%U A193974 51,45,38,30,21,11,77,75,72,68,63,57,50,42,33,23,12,90,88,85,81
%N A193974 Mirror of the triangle A193973.
%C A193974 A193974 is obtained by reversing the rows of the triangle A193973.
%F A193974 Write w(n,k) for the triangle at A193973.  The triangle at A193974 is then given by w(n,n-k).
%e A193974 First six rows:
%e A193974 2
%e A193974 5....3
%e A193974 9....7....4
%e A193974 14...12...9....5
%e A193974 20...18...15...11...6
%e A193974 27...25...22...18...13...7
%t A193974 z = 13;
%t A193974 p[0, x_] := 1; p[n_, x_] := x*p[n - 1, x] + n + 1;
%t A193974 q[0, x_] := 1; q[n_, x_] := x*q[n - 1, x] + 1;
%t A193974 p1[n_, k_] := Coefficient[p[n, x], x^k];
%t A193974 p1[n_, 0] := p[n, x] /. x -> 0;
%t A193974 d[n_, x_] := Sum[p1[n, k]*q[n - 1 - k, x], {k, 0, n - 1}]
%t A193974 h[n_] := CoefficientList[d[n, x], {x}]
%t A193974 TableForm[Table[Reverse[h[n]], {n, 0, z}]]
%t A193974 Flatten[Table[Reverse[h[n]], {n, -1, z}]]  (* A193973 *)
%t A193974 TableForm[Table[h[n], {n, 0, z}]]
%t A193974 Flatten[Table[h[n], {n, -1, z}]]  (* A193974 *)
%Y A193974 Cf. A193973.
%K A193974 nonn,tabl
%O A193974 0,1
%A A193974 _Clark Kimberling_, Aug 10 2011