%I#9 2014年11月2日12:18:36
%S 2,1,5,6,2,9,19,13,3,29,72,69,30,5,65213278182,60,81816821084,
%电话:928451118、134411975379540652625102323、21165586813015、,
%电话:165901329068522221414,342926697974240463020604353879916682
%N行读取的三角形数组:第N行显示多项式u(N)=c(0)+c(1)*x+…+的系数c(n)*x^(n)是连分式[k,k,k…]第n次收敛的分子,其中k=(x+1)/(x+2)。
%C第n行中的数字总和:A002534(n)。左边缘:A006131。右边缘:A000045(斐波那契数)。
%e前3行:
%e 2。。。1
%e 5。。。6 .... 2
%e 9。。。19 ... 13 ... 3
%e前3个多项式:2+x,5+6*x+2*x^2,9+19*x+13*x^2+3*x^3。
%t t[n]:=t[n]=表[(x+1)/(x+2),{k,0,n}];
%t b=表[因子[收敛[t[n]],{n,0,10}];
%t p[x_,n_]:=p[x,n]=最后一个[Expand[Numerator[b]][[n]];
%t u=表格[p[x,n],{n,1,10}]
%t v=系数列表[u,x];压扁[v]
%Y参考A230000、A231775、A000045。
%K nonn,标签
%O 1,1
%A_Clark Kimberling_,2013年11月13日
|