%I#12 2012年3月30日18:58:13

%S 1,1,1,1,3,2,1,6,7,3,10,16,14,5,15,30,40,28,8,12,21,50,90,93,53,13，

%电话：1,28,77175238203,99,21,1,36112308518588428181,34,1,45156，

%电话：504100814281380873327,55,1,552107801806306636903105

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

%x^（n-1）的C系数：=斐波那契（n）=A000045（n）

%C列1:A000012

%C列2:A000217（三角形数字）

%C列3:A005581

%C第4列：A117662

%C交替行和：（-1+Fibonacci（n））的有符号版本

%F u（n，x）=u（n-1，x）+x*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 1…1

%e 1…3…2

%e 1…6…7…3

%e 1…10…16…14…5

%e前五个多项式u（n，x）：

%第1页

%e 1+x

%e 1+3x+2x^2

%e 1+6x+7x^2+3x^3

%e 1+10x+16x^2+14x^3+5x^4

%t u[1，x_]：=1；v[1，x_]：=1；z=16；

%tu[n，x_]：=u[n-1，x]+x*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压扁[%]（*A208518*）

%t表[Expand[v[n，x]]，｛n，1，z｝]

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

%t表格[cv]

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

%Y参考A208519。

%K nonn，表

%O 1,5型

%A_Clark Kimberling_，2012年2月28日