%I#5 2012年3月30日18:58:15

%S 1,2,1,4,5,2,7,14,11,3,38,22,5,16,6013,93,43,8,22106239298，

%电话212,81,13,29175497802782459150，21,3727495219092393117，

%电话：958273,34,46411171041436410657044651942491,55,56595

%N与A208340联合生成的多项式u（N，x）系数的三角；请参阅“公式”部分。

%C每行以斐波那契数来结束（A000045）。

%C交替行和：1,1,1,1,1,1,1,1,1,1,1,1,1，。。。

%C有关相关阵列的讨论和指南，请参阅A208510。

%F u（n，x）=u（n-1，x）+（x+1）*v（n-1、x），

%F v（n，x）=x*u（n-1，x）+（x+1）*v（n-1、x）+1，

%其中u（1，x）=1，v（1，x）=1。

%e前五行：

%第1页

%e 2….1

%e 4….5….2

%e 7…14…11…3

%e 11…31…38…22…5

%e前三个多项式v（n，x）：1，2+x，4+5x+2x^2。

%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_]：=x*u[n-1，x]+（x+1）*v[n-1、x]+1；

%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压扁[%]（*A209153*）

%t表格[展开[v[n，x]]，{n，1，z}]

%t cv=表[系数列表[v[n，x]，{n，1，z}]；

%t表格[cv]

%t压扁[%]（*A208340*）

%Y参考A208340、A208510。

%K nonn，表

%O 1,2号机组

%A_Clark Kimberling_，2012年3月7日