q[x_x]:=x+1;d=2;
p[n,x十一]:=((x+d)^n+(x-d)^n)/2(*类似于定义在A161516型*)
表[Expand[p[n,x]],{n,0,6}]
约化规则={x^y_uoEvQ->q[x]^(y/2),
是吗?OddQ->xq[x]^((y-1)/2)};
t=Table[Last[Most[FixedPointList[Expand[#1/.reductionRules]&,p[n,x]]]],{n,0,30}]
表[系数[部分[t,n],x,0],{n,1,30}](*邮编:A192353*)
表[系数[部分[t,n],x,1],{n,1,30}](*邮编:A192354*)
|