%I#15 2016年4月11日23:14:47
%S 1,6,3,17,13,4,38,31,19,7,80,69,48,32,11158140107,79,51,18303274,
%电话:220176127,83,29566519432360283206134,471039963822706,
%电话580459333217,7618801757152913411138940742539351123336431627962492163184415201201201
%N三角形A067979,行向后读取。
%C列m(不带前导0)给出了卢卡斯数{L(n+1):=A000204(n+1,。。。
%C当m=0..8时,列分别给出A004799(n-1)和A067980-7。行总和为A067989。
%C行多项式p(n,x):=和(a(n,m)*x^m,m=0..n)是由a(z)*(a(z。
%H Michael De Vlieger,n的表,a(n)表示n=0..10000</a>
%F a(n,m)=A067330(n,n-m),n>=m>=0,否则为0。
%F a(n,m)=(n-m+1)*L(m+1)*F(n-m)+;F(n):=A000045(n)(斐波那契)和L(n):=A000032(n)。
%柱m=0,1,…的F G.F.:(x^m)*(L(m+1)+L(m)*x)*(1+2*x)/(1-x-x^2)^2。
%F a(n,m)=-(-1)^m*F(n-2*m+1)-m*L(n+2)+n*L(n+2)+F(n+3),其中F(-n)=(-1)_埃伦·梅特卡夫,2016年4月11日
%e{1};{6,3}; {17,13,4}; {38,31,19,7}; ...; p(2,x)=17+13*x+4*x^2。
%t反向/@表[Sum[LucasL[k+1]LucasL[n-k+1],{k,0,m}],{n,0,11},{m,0,n}]//扁平(*_Michael De Vlieger_,2016年4月11日*)
%K nonn,简单,tabl
%0、2
%A Wolfdieter Lang,2002年2月15日
|