%I#15 2023年12月25日13:47:18
%S 1,3,3,10,16,8,33,75,63,21109320380220,55360129619801620720,
%电话:144118950709459994062552377392719353426155456144085,
%电话:22635690998712970725321840342774802728541799727823020672258442837
%N三角形数组T(N,k),按行读取:多项式p(1,x)=1,p(2,x)=3+3*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(13+10*x+5*x^2)),b=(1/2)(3*x+3+1/k),c=(1/2。
%e前八行:
%e 1个
%e 3 3
%e 10 16 8
%电子33 75 63 21
%电子109 320 380 220 55
%e 360 1296 1980 1620 720 144
%电话:1189 5070 9459 9940 6255 2262 377
%电子3927 19353 42615 54561 44085 22635 6909 987
%e第4行表示多项式p(4,x)=33+75*x+63*x^2+21*x^3,因此(T(4,k))=(33,75,63,21),k=0..3。
%tp[1,x_]:=1;p[2,x_]:=3+3 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参考A006190(第1列);A001906(p(n,n-1));A154244(行总和),(p(n,1));A077957(交替行总和),(p(n,-1));A190984(p(n,2));(A006190签名,(p(n,-2));A154244(p(n,-3));A190984(p(n,-4));A094440、A367208、A36.7209、A367210、A367211、A367、297、A367298、A36729、A367300。
%K nonn,表
%O 1,2号机组
%A _百灵鸟金伯利,2023年12月23日
|