%I#29 2024年1月13日03:40:25

%S 1,1,0,0,1,0,0,1,0,0，0,00,01,0,0-0,0',0,0，

%T 1,0,0,0,1,0,0，0,00,0_0，0,0，

%U 0,0,1,0,0,0，0,0'0,00,0'，0,0

%f（x，x^4）的x次幂展开式，其中f（，）是Ramanujan的广义θ函数。

%H Seiichi Manyama，<a href=“/A133100/b133100.txt”>n的表，a（n）表示n=0..1000</a>

%H<a href=“/index/Ch#char_fns”>特征函数的索引项。

%F F（x，x^m）=1+和{k=1..oo}x ^（（m+1）*k*（k-1）/2）（x^k+x^（m*k））_N.J.A.Sloane，2017年1月30日

%F A085787广义七元数的特征函数。

%周期10序列的F Euler变换[1，-1，0，1，-1，1，0，-1，-1，-1，…]。

%F G.F.：Prod_{k>0}（1-x^（5*k））*（1+x^。

%F a（n）=| A113429（n）|。a（3*n+2）=0。

%F和{k=1..n}a（k）~2*sqrt（2/5）*sqert（n）.-_Amiram Eldar，2024年1月13日

%e总重量=1+x+x^4+x^7+x^13+x^18+x^27+x^34+x^46+x^55+x^70+。。。

%e G.f=q^9+q^49+q^169+q^289+q*529+q*1089+q=1369+q$1849+。。。

%t a[n_]：=系列系数[QPochhammer[-x，x^5]QPochhammer[-x^4，x^5]QPochhammer[x^5]，{x，0，n}]；（*迈克尔·索莫斯，2015年10月31日*）

%t a[n_]：=平方R[1,40 n+9]/2；（*迈克尔·索莫斯，2017年1月30日*）

%t a[n_]：=如果[n<0，0，Boole@IntegerQ@Sqrt@（40 n+9）]；（*迈克尔·索莫斯，2017年1月30日*）

%o（PARI）{a（n）=如果（n<0，0，polceoff（prod（k=1，n，1+x^k*[-1，1，0，0，1][k%5+1]，1+x*o（x^n）），n））}；

%o（PARI）{a（n）=发行量（40*n+9）}；

%Y参考f（x，x^k），k=2..11:A080995，A010054，A133100，A089801，A274179，A214263，A281814，A205988，A2815，A186742。

%Y参考A085787，A113429。

%K nonn公司

%0、1

%A _迈克尔·索莫斯，2007年9月11日