%I#13 2023年12月23日14:42:13

%S 1,2,4,5,14,15,12,48,76,56,29148326372209,7043612129041718，

%电话：78016912424169822810191764229114083456135763217649992，

%电话：51488331121086498594484249211704218254281976249612140712405452378

%N三角形数组T（N，k），按行读取：多项式p（1，x）=1，p（2，x）=2+4*x，p（N，x）=u*p。

%因为（p（n，x））是一个强可除序列，对于每个整数k，序列（p（n，k））是整数的一个强可除序列。

%H Rigoberto Flórez、Robinson Higuita和Antara Mukherjee，<a href=“http://math.colgate.edu/~integers/s14/s14.Abstract.html“>广义斐波那契多项式强可除性的刻画</a>，integers，18（2018），论文编号A14。

%对于n>=3，F p（n，x）=u*p（n-1，x）+v*p（n-2，x），其中p（1，x。

%F p（n，x）=k*（b^n-c^n），其中k=-（1/sqrt（8+8*x+12*x^2）），b=（1/2）*（4*x+2+1/k），c=（1/2。

%e前八行：

%第1页

%e 2 4

%e 5 14 15

%电子12 48 76 56

%电子29 148 326 372 209

%电子70 436 1212 1904 1718 780

%电子169 1242 4169 8228 10191 7642 2911

%电话：408 3456 13576 32176 49992 51488 33112 10864

%e第4行表示多项式p（4，x）=12+48*x+76*x^2+56*x^3，因此（T（4，k））=（12,48,76,56），k=0..3。

%tp[1，x_]：=1；p[2，x_]：=2+4 x；u[x_]：=p[2，x]；v[x_]：=1-2 x-x^2；

%t p[n_，x_]：=展开[u[x]*p[n-1，x]+v[x]*p[n-2，x]]

%t网格[表[系数列表[p[n，x]，{n，1，10}]]

%t展平[表[系数列表[p[n，x]，{n，1，10}]]

%Y参见A000129（第1列）、A001353（p（n，n-1））、A154244（行总和，（p（n-1）。

%K nonn，表

%O 1,2号机组

%2023年11月26日，金伯利百灵