%I A154983
%S A154983 1,1,1,1,4,1,1,11,11,1,1,24,70,24,1,1,49,358,358,49,1,1,98,1559,4076,
%T A154983 1559,98,1,1,195,6361,40003,40003,6361,195,1,1,388,25372,345692,862598,
%U A154983 345692,25372,388,1,1,773,100640,2813688,16569442,16569442,2813688
%N A154983 Polynomial recursion:m=0; p(x,n)=(x + 1)*p(x, n - 1) + 2^(m + n - 1)*x*p(x, 
               n - 2)+If[n >= 3, 2^(n - 2)*x*p(x, n - 2), 0].
%C A154983 Row sums are:
%C A154983 {1, 2, 6, 24, 120, 816, 7392, 93120, 1605504, 38969088, 1310965248,...}.
%F A154983 m=0; p(x,n)=(x + 1)*p(x, n - 1) + 2^(m + n - 1)*x*p(x, n - 2)
%F A154983 +If[n >= 3, 2^(n - 2)*x*p(x, n - 2), 0];
%F A154983 t(n,m)=coefficients(p(x,n))
%e A154983 {1},
%e A154983 {1, 1},
%e A154983 {1, 4, 1},
%e A154983 {1, 11, 11, 1},
%e A154983 {1, 24, 70, 24, 1},
%e A154983 {1, 49, 358, 358, 49, 1},
%e A154983 {1, 98, 1559, 4076, 1559, 98, 1},
%e A154983 {1, 195, 6361, 40003, 40003, 6361, 195, 1},
%e A154983 {1, 388, 25372, 345692, 862598, 345692, 25372, 388, 1},
%e A154983 {1, 773, 100640, 2813688, 16569442, 16569442, 2813688, 100640, 773, 1},
%e A154983 {1, 1542, 399397, 22400024, 284874586, 695614148, 284874586, 22400024, 
               399397, 1542, 1}
%t A154983 Clear[p, n, m, x]; m = 0; p[x, 0] = 1; p[x, 1] = x + 1;
%t A154983 p[x, n] = (x + 1)*p[ x, n - 1] + 2^(m + n - 1)*x*p[x, n - 2]
%t A154983 + If[n >= 3, 2^(n - 2)*x*p[x, n - 2], 0];
%t A154983 Table[ExpandAll[p[x, n]], {n, 0, 10}];
%t A154983 Table[CoefficientList[ExpandAll[p[x, n]], x], {n, 0, 10}];
%t A154983 Flatten[%]
%Y A154983 Sequence in context: A146898 A152970 A154986 this_sequence A156534 A008292 
               A157221
%Y A154983 Adjacent sequences: A154980 A154981 A154982 this_sequence A154984 A154985 
               A154986
%K A154983 nonn,tabl,uned
%O A154983 0,5
%A A154983 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 18 2009