%I#17 2022年9月8日08:46:18

%S 1，-1,3，-3,6，-5,9，-7,12，-9,15，-11,18，-13,21，-15,24，-17,27，-19,30，-21，

%电话33、-23、36、-25、39、-27、42、-29、45、-31、48、-33、51、-35、54、-37、57、-39、60，

%铀-41,63、-43,66、-45,69、-47,72、-49,75、-51,78、-53,81、-55,84、-57,87、-59

%如果N>0，则N a（2*N）=3*N，a（2*N+1）=-（2*N+1），a（0）=1。

%H G.C.Greubel，n表，n=0..5000时的a（n）</a>

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

%对于n>0，F b（n）=-a（n）与b（2^e）=-3*2^（e-1）相乘，如果e>0，b（p^e）=p^e对于素数p>2。

%长度为10的序列的F Euler变换[-1，3，0，0，1，0，0,0，0-1]。

%财务报表：（1-x+x^2-x^3+x^4）/（1-2*x^2+x^4。

%联邦政府：（1-x）*（1-x^10）/（1-x2）^3*（1-x^5））。

%F a（n）=（-1）^n*A257143（n）。如果n>0，a（n）=（-1）^n*A080512（n）。

%如果n>0，F a（n）+a（n+1）=A084964（n-1）。

%e G.f=1-x+3*x^2-3*x^3+6*x^4-5*x^5+9*x^6-7*x^7+12*x^8+。。。

%t a[n_]：=其中[n<1，Boole[n==0]，OddQ[n]，-n，True，3 n/2]；

%t a[n_]：=级数系数[（1-x+x^2-x^3+x^4）/（1-2*x^2+x^4，{x，0，n}]；

%t加入[{1}，线性递归[{0,2,0，-1}，{-1,3，-3,6}，50]]（*_G.C.Greubel_，2018年8月1日*）

%o（PARI）{a（n）=如果（n<1，n==0，n%2，-n，3*n/2）}；

%o（PARI）{a（n）=如果（n＜0，0，polcoeff（（1-x）*（1-x^10）/（（1-x^2）^3*（1-x^5））+x*o（x^n），n）}；

%o（岩浆）I:=[-1,3，-3,6]；[1] cat[n le 4 select I[n]else 2*自我（n-2）-自我（n-4）：n in[1..30]]；//_G.C.Greubel，2018年8月1日

%Y参考A080512、A084964、A257143。

%K符号，简单

%0、3

%A _迈克尔·索莫斯，2016年12月27日