%I A138076
%S A138076 1,1,1,1,6,1,1,23,23,1,1,76,230,76,1,1,237,1682,1682,237,1,1,
%T A138076 722,10543,23548,10543,722,1,1,2179,60657,259723,259723,60657,
%U A138076 2179,1,1,6552,331612,2485288,4675014,2485288,331612,6552,1,1
%V A138076 1,-1,1,1,-6,1,-1,23,-23,1,1,-76,230,-76,1,-1,237,-1682,1682,-237,1,1,
%W A138076 -722,10543,-23548,10543,-722,1,-1,2179,-60657,259723,-259723,60657,
%X A138076 -2179,1,1,-6552,331612,-2485288,4675014,-2485288,331612,-6552,1,-1
%N A138076 A signed version of A060187 obtained by taking the Z-transform of p(t,
               x)=Exp[t*(1+2*x)].
%e A138076 {1},
%e A138076 {-1, 1},
%e A138076 {1, -6, 1},
%e A138076 {-1, 23, -23, 1},
%e A138076 {1, -76, 230, -76, 1},
%e A138076 {-1, 237, -1682, 1682, -237, 1},
%e A138076 {1, -722, 10543, -23548, 10543, -722, 1},
%e A138076 {-1, 2179, -60657, 259723, -259723, 60657, -2179, 1},
%e A138076 {1, -6552, 331612, -2485288, 4675014, -2485288, 331612, -6552, 1},
%e A138076 {-1, 19673, -1756340, 21707972, -69413294, 69413294, -21707972, 1756340, 
               -19673, 1},
%e A138076 {1, -59038, 9116141, -178300904, 906923282, -1527092468, 906923282, -178300904, 
               9116141, -59038, 1}
%t A138076 p[t_] = Exp[t]*x/(Exp[2*t] + x);
%t A138076 a = Table[ CoefficientList[FullSimplify[ExpandAll[(n!*( 1 + x)^(n + 1)/
               x)*SeriesCoefficient[ Series[p[ t], {t, 0, 30}], n]]], x], {n, 0, 
               10}];
%t A138076 Flatten[a]
%K A138076 sign,tabl,new
%O A138076 0,4
%A A138076 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 26 2009