cp's OEIS Frontend

A249758 Triangular array of coefficients of polynomials p(n,x) = (x + 2)*p(n-1,x) + x, p(0,x) = 1.

%I A249758 #4 Nov 14 2014 21:14:55
%S A249758 1,2,2,4,7,2,8,19,11,2,16,47,41,15,2,32,111,129,71,19,2,64,255,369,
%T A249758 271,109,23,2,128,575,993,911,489,155,27,2,256,1279,2561,2815,1889,
%U A249758 799,209,31,2,512,2815,6401,8191,6593,3487,1217,271,35,2,1024,6143
%N A249758 Triangular array of coefficients of polynomials p(n,x) = (x + 2)*p(n-1,x) + x, p(0,x) = 1.
%H A249758 Clark Kimberling, <a href="/A249758/b249758.txt">Rows n = 0..100, flattened</a>
%e A249758 p(0,x) = 1
%e A249758 p(1,x) = 2 + 2*x
%e A249758 p(2,x) = 4 + 7*x + 2*x^2
%e A249758 First 6 rows:
%e A249758 1
%e A249758 2    2
%e A249758 4    7     2
%e A249758 8    19    11    2
%e A249758 16   47    41    15    2
%e A249758 32   111   129   71    19   2
%t A249758 z = 14; p[n_, x_] := (x + 2) p[n - 1, x] + x; p[0, x_] = 1;
%t A249758 t = Table[Factor[p[n, x]], {n, 0, z}]
%t A249758 TableForm[Rest[Table[CoefficientList[t[[n]], x], {n, 0, z}]]] (* A249758 array *)
%t A249758 Flatten[CoefficientList[t, x]] (* A249758 sequence *)
%Y A249758 Cf. A249755, A249756.
%K A249758 nonn,tabl,easy
%O A249758 0,2
%A A249758 _Clark Kimberling_, Nov 07 2014