|
例子
|
前五个多项式p(n,x)及其约化:
p(1,x)=1->1
p(2,x)=x+1->x+1
p(3,x)=x^2+x+1->x^2+x+1
p(4,x)=x^3+x^2+x+1->2x^2+3x+2
p(5,x)=x^4+x^3+x^2+x+1->5x^2+6*x+3,因此
A192805号=(1,1,1,2,3,...),A002478号=(0,1,1,3,6,...),A077864号=(0,0,1,2,5,...).
|
|
数学
|
q=x^3;s=x^2+2x+1;z=40;
p[0,x_]:=1;p[n,x_]:=x^n+p[n-1,x];
表[Expand[p[n,x]],{n,0,7}]
减少[{p1,q,s,x}]:=
固定点[多项式商@@#1+
多项式余数@@#1&)[{#1,q,x}]&,p1]
t=表[reduce[{p[n,x],q,s,x}],{n,0,z}];
u1=表[系数[部分[t,n],x,0],{n,1,z}]
u2=表[系数[部分[t,n],x,1],{n,1,z}]
u3=表[系数[部分[t,n],x,2],{n,1,z}]
|