%I#13 2020年1月24日03:26:02
%S 1,2,2,5,4,2,9,18,10,2,13,40,56,28,2,17,70154176,76,2,21108320,
%电话:564540208,2,25154570134419761640568,22920892027005304,
%电话:672049281552,332701386484811844200162320146884240
%N与A209134联合生成的多项式u(N,x)系数的三角;请参阅“公式”部分。
%C有关相关阵列的讨论和指南,请参阅A208510。
%C由(1,1,-2,1,0,0,0,0,0_Philippe Deléham,2012年4月10日
%F u(n,x)=u(n-1,x)+(x+1)*v(n-1、x),
%F v(n,x)=2x*u(n-1,x)+2x*v(n-1、x),
%其中u(1,x)=1,v(1,x)=1。
%F From _Philippe Deléham,2012年4月10日:(开始)
%F作为三角形T(n,k),0≤k≤n:
%F G.F.:(1-2*y*x+x^2-y*x^2-2*y^2*x^2)/(1-x-2*y**x-2*y ^2*x ^2)。
%F T(n,k)=T(n-1,k)+2*T(n-l,k-1)+2*T(n-2,k-2),T(0,0)=T
%e前五行:
%e 1;
%e 2,1;
%e 2、5、4;
%e 2、9、18、10;
%e 2、13、40、56、28;
%e前三个多项式u(n,x):
%第1页
%e 2+x
%e 2+5x+4x^2
%e摘自2012年4月10日的《菲利普·德雷厄姆》(_Philippe Deléham):(开始)
%e(1,1,-2,1,0,0,…)DELTA(0,1,3,-2,0,O,…)开始:
%e 1;
%e 1,0;
%e 2,1,0;
%e 2、5、4、0;
%e 2、9、18、10、0;
%e 2、13、40、56、28、0;
%e 2、17、70、154、176、76、0;
%e 2、21、108、320、564、540、208、0;(结束)
%tu[1,x_]:=1;v[1,x_]:=1;z=16;
%tu[n,x_]:=u[n-1,x]+(x+1)*v[n-1、x];
%tv[n,x_]:=2 x x x u[n-1,x]+2 x x v[n-1,x];
%t表格[展开[u[n,x]],{n,1,z/2}]
%t表格[展开[v[n,x]],{n,1,z/2}]
%t cu=表[系数列表[u[n,x],x]、{n,1,z}];
%t表格[cu]
%t压扁[%](*A209133*)
%t表格[展开[v[n,x]],{n,1,z}]
%t cv=表[系数列表[v[n,x],{n,1,z}];
%t表格[cv]
%t压扁[%](*A209134*)
%Y参考A209134、A208510。
%K nonn,表
%O 1,2号机组
%2012年3月5日,金伯利百灵