%I#32 2022年2月14日00:18:37
%S 1,1,1,2,3,1,3,6,4,1,4,10,12,7,15,15,25,25,11,6,21,44,60,48,18,1,
%电话:7,28,70119133,91,29,1,8,36104210296284168,47,1,9,45147342,
%电话:576699585306,76,1,10,552005251022148515801175550123
%N按行读取的三角形:T(N,k)=abs(A104509(N-1,N-k))。
%旧的定义是:“伴随佩尔多项式,作为三角形。”
%H维基百科,<a href=“https://en.wikipedia.org/wiki/Lucas_多项式“>Lucas多项式。
%F对于n>=1,T(n,k)=和{i=0..floor(k/2)}n/(n-i)*二项式(n-i,i)*二项式(n-2*i,n-k)=总和{i=0..floor_马克斯·阿列克塞耶夫,2021年10月11日
%F G.F.:(1+x^2)/(1-x-x^2-x*y)(列顺序相反)_乔治·菲舍尔(Georg Fischer),2019年8月13日
%第n行>=1的F G.F.是卢卡斯多项式L_n(1+x)的倒数_马克斯·阿列克塞耶夫,2021年10月11日
%e三角形的前几行:
%e 1;
%e 1,1;
%e 1、2、3;
%e 1、3、6、4;
%e 1、4、10、12、7;
%e 1、5、15、25、25、11;
%e。。。
%e多项式:(1),(x+1),(x2+2x+3),(x^3+3x^2+6x+4)。。。
%e第3行:(1、2、3);A309220第3列的(x^2+2x+3)=f(x),(x=1,2,3,…):(6,11,18,27,38,51,…)。后一序列=A118980第3行的二项式变换:(6,5,2)。
%t展平[Map[Reverse,CoefficientList[Cefficient List[Series[(1+x^2)/(1-x-x^2-x*y),{x,0,8}],x],y]](*_Georg Fischer_,2019年8月13日*)
%o(PARI){T(n,k)=polcoeff(polcooff((1+x^2)/(1-x-x^2-x*y)+x*o(x^n),n),n-k)};/*_迈克尔·索莫斯(Michael Somos),2021年10月10日*/
%o(PARI){A118981(n,k)=如果(n==0,k==0、和(i=0,k,n/(n-i)*二项式(k-i,i)*二项式(n-i,n-k));}最大Alekseyev_,2021年10月11日
%Y参见A118980、A104509、A309220。
%K nonn,表
%O 1.5
%A _加里·W·亚当森,2006年5月7日
%E由N.J.A.Sloane编辑,2019年8月12日,用R.J.Mathar的显式公式替换旧定义,2011年10月30日
%E a(22)-a(62)摘自_Georg Fischer,2019年8月13日
%E来自米歇尔·马库斯的更多条款,2021年10月11日
|