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

%S 1,3,5,2,9,6,2,15,16,8,2,25,36,26,10,2,41,76,70,38,12,267152172，

%电话：118,52,14,2109294328182,68,16,2177554860840562264,86，

%U 18,22871024180820281584894366106,20,2465186436924676

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

%C交替行总和：1,3,3,5,5,7,7,9,9，。。。

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

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

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

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

%e前五行：

%第1页

%e三

%e 5….2

%e 9….6….2

%e 15…16…8…2

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

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

%tu[n，x_]：=x*u[n-1，x]+（x+1）*v[n-1、x]；

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

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

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

%t表格[cv]

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

%Y参见A209647、A208510。

%K nonn，标签

%O 1,2号机组

%2012年3月13日，《百灵金伯利》