%I#16 2022年9月8日08:45:58

%S 0,5,6,22,51140360949247864941699544500116496304997798486，

%电话：20904705472915143282843571192898207509257110590673124270，

%电话：176226211461366237212078724896316225123582788812070216743923894567429596031485584954924

%N多项式C（N）*x^N的（x^2->x+1）减法中x的系数，其中C=A022095。

%C见A192872。

%H Colin Barker，n的表格，n=0..1000的a（n）</a>

%H<a href=“/index/Rec#order_03”>具有常系数的线性递归索引条目，签名（2,2，-1）。

%F a（n）=2*a（n-1）+2*a（n-2）-a（n-3）。

%F.G.F.:x*（5-4*x）/（（1+x）*（1-3*x+x^2））_R.J.Mathar，2014年5月8日

%F a（n）=-3*a（n-1）+a（n-2）=9*（-1）^（n+1）_R.J.Mathar，2014年5月8日

%F a（n）=（2^（-1-n）*（-9*（-1）^n*2^_科林·巴克尔，2016年10月1日

%F a（n）=斐波那契（2*n+1）+2*Fibonacci（n）^2-（-1）^n.-_G.C.格鲁贝尔，2019年7月29日

%t（*第一个程序*）

%tq=x^2；s=x+1；z=28；

%tp[0，x_]：=1；p[1，x_]：=5 x；

%tp[n，x_]：=p[n-1，x]*x+p[n-2，x]x^2；

%t表格[展开[p[n，x]]，{n，0，7}]

%t减少[｛p1_，q_，s_，x_｝]：=固定点[（s多项式商@#1+多项式余数@#1&）[｛#1，q，x｝]&，p1]

%t t=表[reduce[{p[n，x]，q，s，x}]，{n，0，z}]；

%t u1=表[系数[部分[t，n]，x，0]，{n，1，z}]（*A192914*）

%t u2=表[系数[部分[t，n]，x，1]，{n，1，z}]（*见A192878*）

%t（*第二个程序*）

%t带[｛F=Fibonacci｝，表[F[2*n+1]+2*F[n]^2-（-1）^n，｛n，0,30｝]]（*_G.C.Greubel_，2019年7月28日*）

%o（PARI）a（n）=圆形（（2^（-1-n）*（-9*（-1）^n*2^

%o（PARI）concat（0，Vec（（-x*（-5+4*x））/（（1+x）*（x^2-3*x+1））+o（x^40）））\\科林·巴克，2016年10月1日

%o（PARI）向量（30，n，n-；f=fibonacci；f（2*n+1）+2*f（n）^2-（-1）^n）\\_G.C.Greubel_，2019年7月29日

%o（岩浆）F:=斐波那契；[0..30]]中的[F（2*n+1）+2*F（n）^2-（-1）^n:n；//_G.C.Greubel，2019年7月29日

%o（Sage）f=斐波那契；[f（2*n+1）+2*f（n）^2-（-1）^n代表n in（0..30）]#_G.C.Greubel_，2019年7月29日

%o（间隙）F:=斐波那契；；列表（[0..30]，n->F（2*n+1）+2*F（n）^2-（-1）^n）；#_G.C.Greubel，2019年7月29日

%Y参考A000045、A192232、A192744、A192872、A192916。

%K nonn，简单

%0、2

%A_Clark Kimberling_，2011年7月12日