%I#3 2012年3月30日17:34:26
%S 1、-1,1,1、-6,1、-1,23、-23,1,1和-76230、-76,1、-1237、-16821682、-237,1,1,
%电话:72210543,-2354810543,-722,1,-12179,-60657259723,-25972360657,
%U-2179,1,1,-6552331612,-24852884675014,-248588331612,-6552,1,-1
%N通过p(t,x)=Exp[t*(1+2*x)]的Z变换获得A060187的签名版本。
%e{1},
%e{-1,1},
%e{1,-6,1},
%e{-1,23,-23,1},
%e{1、-76、230、-76和1},
%e{-1,237,-1682,1682,-237,1},
%e{1、-722、10543、-23548、10543,-722、1},
%电子邮箱{-1,2179,-60657,259723,-259723,60657,-2179,1},
%电子邮箱{1,-6552,331612,-2485288,4675014,-2484288,331611,-652,1},
%电子邮箱{-1,19673,-1756340,21707972,-69413294,69413294,-21707972,1756340,-19673,1},
%电子邮箱{1,-59038,9116141,-178300904,906923282,-1527092468,90692382,-178300,90904,91161141,-59038,1}
%t p[t]=有效期[t]*x/(有效期[2*t]+x);
%t a=表[系数列表[FullSimplify[ExpandAll[(n!*(1+x)^(n+1)/x)*SeriesCoefficient[系列[p[t],{t,0,30}],n]]],x],{n,0,10}];
%t压扁[a]
%K符号,表格
%0、5
%A _Roger L.Bagula_,2009年11月26日
|