%I#16 2022年9月8日08:46:15
%S 4,5,1,16,29,8922058915294016105012750571996188501493489,
%电话:1291984338244588553692318364460695581158903081416013680,
%电话:1089137941285140016174650625241954378742951116629974513395111824350699035709918141995321
%N连分式[1^N,1/2,1,1,1,…]的最小多项式中x^2的系数,其中1^N表示N个1。
%C有关相关序列的指南,请参见A265762。
%H Colin Barker,n的表格,n=0..1000的a(n)</a>
%H<a href=“/index/Rec#order_03”>具有常系数的线性递归索引条目,签名(2,2,-1)。
%当n>3时,F a(n)=2*a(n-1)+2*a(n-2)-a(n-3)。
%固定长度:(4-3 x-17 x ^2+8 x ^3)/(1-2 x-2 x ^2+x ^3。
%对于n>0_科林·巴克(Colin Barker),2016年10月20日
%e设p(n,x)是由第n个连分数给出的数字的最小多项式:
%e[1/2,1,1,1,…]=sqrt(5))/2具有p(0,x)=-5+4x^2,因此a(0)=1;
%e[1,1/2,1,1,1,…]=(5+2sqrt(5))/5的p(1,x)=1-10x+5x^2,因此a(1)=19;
%e[1,1,1/2,1,1,…]=6-2sqrt(5)具有p(2,x)=16-12x+x^2,因此a(2)=29。
%tu[n_]:=表[1,{k,1,n}];t[n_]:=连接[u[n],{1/2},{{1}}];
%t f[n_]:=来自连续分数[t[n]];
%t t=表[最小多项式[f[n],x],{n,0,20}]
%t系数[t,x,0](*A266699*)
%t系数[t,x,1](*A266700*)
%t系数[t,x,2](*A266699*)
%t加入[{4},LinearRecurrence[{2,2,-1},{5,1,16},30]](*_Vincizo Librandi_,2016年1月6日*)
%o(岩浆)I:=[4,5,16];[n le 4在[1..30]]中选择I[n]else 2*Self(n-1)+2*Self(n-2)-Self(n-3):n;//_文森佐·利班迪(Vincenzo Librandi),2016年1月6日
%o(PARI)Vec((4-3*x-17*x^2+8*x^3)/(1-2*x-2*x^2+x^3
%Y参见A265762、A266700。
%K nonn,简单
%0、1
%A_Clark Kimberling_,2016年1月5日
|