%I#15 2021年10月3日09:20:29
%S 1,2,4,8,17,36,8017840994222125204123772947270592169198,
%电话:40680197842623570925679488136963853303289279703120192321034,
%电话:46416804112030282227042422446527724428157580967773804072933691834772480
%N a(N)=2*a(N-1)+4*a(N-2)-6*a(N-3)-3*a(N-4),当N>3时,a(0)=1,a(1)=2,a(2)=4,a(3)=8。
%H G.C.Greubel,n表,n=0..1000时的a(n)</a>
%H<a href=“/index/Rec#order_04”>具有常系数的线性重复出现的索引条目,签名(2,4,-6,-3)。
%F a(n)=(3/8)*3^(n/2)*(1+(-1)^n)+(5/24)*3*((n+1)/2)*_Emeric Deutsch_,2008年3月31日
%联邦政府:(1-4*x^2-2*x^3)/(1-3*x^2)*(1-2*x-x^2_Harvey P.Dale_,2018年5月3日
%F 4*a(n)=A078057(n)+A083658(n+2)_R.J.Mathar,2021年10月3日
%p a:=proc(n)选项运算符,箭头:expand((3/8)*3^((1/2)*n)*(1+(-1)^n)+(5/24)*3qu((1/2)*n+1/2)*(1-(-1_Emeric Deutsch,2008年3月31日
%t线性递归[{2,4,-6,-3},{1,2,4,8},40](*或*)系数列表[Series[(1-4 x ^2-2 x ^3)/(1-2 x 4 x ^2+6 x ^3+3 x ^4),{x,0,40}],x](*Harvey P.Dale_2018年5月3日*)
%o(岩浆)
%o R<x>:=PowerSeriesRing(整数(),40);
%o系数(R!((1-4*x^2-2*x^3)/(1-2*x-4*x^2+6*x^3+3*x^4));//_G.C.Greubel,2021年4月11日
%o(圣人)
%o定义A137255_list(prec):
%o P.<x>=PowerSeriesRing(ZZ,prec)
%o返回P((1-4*x^2-2*x^3)/(1-2*x-4*x^2+6*x^3+3*x^4)).list()
%o A137255_list(40)#_G.C.格鲁贝尔,2021年4月11日
%K nonn公司
%0、2
%2008年3月11日,A Paul Curtz
%E更多术语摘自德国电子报,2008年3月31日
|