%I#13 2020年1月26日20:55:18
%S 1,1,2,1,5,3,10,11,5,19,28,25,8,1,36,62,81,50,13,1,69129218193,
%电话:98,21,1134261533597442185,34,126352123516311559952343,
%电话:55,1520104027734129476337581985625,89,110332071
%N与A210791联合生成的多项式v(N,x)系数三角;请参阅“公式”部分。
%C第n行以1开始,以F(n+1)结束,其中F=A000045(斐波那契数)。
%C第2列:A052944。
%C行总和:A000244(3的幂)。
%C交替行总和:A001333。
%C有关相关阵列的讨论和指南,请参阅A208510。
%C由(1,0,1/2,3/2,0,0,0-0,0-,0,…)DELTA(0,2,-1/2,-1/2_Philippe Deléham,2012年3月29日
%Fu(n,x)=u(n-1,x)+x*v(n-1,x),
%Fv(n,x)=(x-1)*u(n-1,x)+(x+2)*v(n-1,x),
%其中u(1,x)=1,v(1,x)=1。
%F From _Philippe Deléham,2012年3月29日:(开始)
%F作为三角形T(n,k),0≤k≤n:
%财务报表:(1-2*x-y*x+3*y*x^2-y^2*x^2)/(1-3*x-y*x+2*x^2+2*y*x^2-y ^2*x ^2)。
%F T(n,k)=3*T(n-1,k)+T(n-2,k)-2*T(n-2,k
%e前五行:
%e 1;
%e 1、2;
%e 1、5、3;
%e 1、10、11、5;
%e 1、19、28、25、8;
%e前三个多项式v(n,x):
%第1页
%e 1+2倍
%e 1+5x+3x^2
%e摘自2012年3月29日的《菲利普·德雷厄姆》(_Philippe Deléham):(开始)
%e(1,0,1/2,3/2,0,0,…)DELTA(0,2,-1/2,0-1,0,0-…)开始:
%e 1;
%e 1,0;
%e 1、2、0;
%e 1、5、3、0;
%e 1、10、11、5、0;
%e 1、19、28、25、8、0;
%e 1、36、62、81、50、13、0;
%e 1、69、129、218、193、98、21、0;(结束)
%tu[1,x_]:=1;v[1,x_]:=1;z=16;
%tu[n,x]:=u[n-1,x]+(x+j)*v[n-1、x]+c;
%t d[x_]:=h+x;e[x_]:=p+x;
%tv[n,x_]:=d[x]*u[n-1,x]+e[x]*v[n-1、x]+f;
%t j=0;c=0;h=-1;p=2;f=0;
%t表[Expand[u[n,x]],{n,1,z/2}]
%t表[Expand[v[n,x]],{n,1,z/2}]
%t cu=表[系数列表[u[n,x],x]、{n,1,z}];
%t表格[cu]
%t压扁[%](*A210791*)
%t cv=表[系数列表[v[n,x],{n,1,z}];
%t表格[cv]
%t压扁[%](*A210792*)
%t表[u[n,x]/。x->1,{n,1,z}](*A007051*)
%t表[v[n,x]/。x->1,{n,1,z}](*A000244*)
%t表[u[n,x]/。x->-1,{n,1,z}](*A001129*)
%t表[v[n,x]/。x->-1,{n,1,z}](*A001333*)
%Y参见A210791、A208510。
%K nonn,表
%氧1,3
%2012年3月26日,《百灵金伯利》
|