%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日