cp's OEIS Frontend

A193857 Mirror of the triangle A193856.

%I A193857 #5 Mar 30 2012 18:57:39
%S A193857 1,5,1,19,8,1,65,43,11,1,211,194,76,14,1,665,793,422,118,17,1,2059,
%T A193857 3044,2059,776,169,20,1,6305,11191,9221,4387,1283,229,23,1,19171,
%U A193857 39878,38854,22382,8236,1970,298,26,1,58025,138805,156440,106000,47090
%N A193857 Mirror of the triangle A193856.
%C A193857 A193857 is obtained by reversing the rows of the triangle A193856.
%F A193857 Write w(n,k) for the triangle at A193856.  The triangle at A193857 is then given by w(n,n-k).
%e A193857 First six rows:
%e A193857 1
%e A193857 5.....1
%e A193857 19....8.....1
%e A193857 65....43....11....1
%e A193857 211...194...76....14....1
%e A193857 665...793...422...118...17...1
%t A193857 z = 10;
%t A193857 p[n_, x_] := (2 x + 1)^n;
%t A193857 q[n_, x_] := (x + 1)^n;
%t A193857 p1[n_, k_] := Coefficient[p[n, x], x^k];
%t A193857 p1[n_, 0] := p[n, x] /. x -> 0;
%t A193857 d[n_, x_] := Sum[p1[n, k]*q[n - 1 - k, x], {k, 0, n - 1}]
%t A193857 h[n_] := CoefficientList[d[n, x], {x}]
%t A193857 TableForm[Table[Reverse[h[n]], {n, 0, z}]]
%t A193857 Flatten[Table[Reverse[h[n]], {n, -1, z}]]  (* A193856 *)
%t A193857 TableForm[Table[h[n], {n, 0, z}]]
%t A193857 Flatten[Table[h[n], {n, -1, z}]]   (* A193857 *)
%Y A193857 Cf. A193856.
%K A193857 nonn,tabl
%O A193857 0,2
%A A193857 _Clark Kimberling_, Aug 07 2011