u[1,x_9]:=1;v[1,x_9]:=1;z=16;
u[n_u,x_u]:=x*u[n-1,x]+(x+1)*v[n-1,x];
v[n,x_x]:=(x+1)*u[n-1,x]+2 x*v[n-1,x]+1;
表[Expand[u[n,x]],{n,1,z/2}]
表[展开[v[n,x]],{n,1,z/2}]
cu=表[系数列表[u[n,x],x],{n,1,z}];
表格
展平[%](*A209773号*)
表[展开[v[n,x]],{n,1,z}]
cv=表[CoefficientList[v[n,x],x],{n,1,z}];
表格
展平[%](*A209774号*)
|