%I#14 2019年9月11日06:39:47

%S 1,0,0,1,0,1,1,0,1,2,1,1,1,2,1,2,4,1,3,5,5,3,7,5,8,10,7,11,13,8，

%电话：16,17,12,20,20,17,26,22,31,34,30,40,43,37,51,54,48,64,66,62,80,83，

%U 78,98103,981211281221501581491841931852262332275285280电话

%N将N划分为不同的恶数的数目。

%H Andrew Howroyd，n的表，n=0..1000的a（n）</a>

%H N.J.A.Sloane，转换</a>

%F A001969特征函数的加权变换。

%p g:=proc（n）选项记忆；是（添加（i，i=位[分割]（n））：：偶数）结束：

%p b:=proc（n，i）选项记忆`如果`（i*（i+1）/2<n，0，`如果`（n=0，1，

%p b（n，i-1）+`如果`（g（i），b（n-i，min（n-i、i-1）），0））

%p端：

%pa:=n->b（n$2）：

%p序列（a（n），n=0..100）；#_Alois P.Heinz_，2019年9月8日

%t m=100；

%t产品[If[EvenQ[DigitCount[k，2，1]]，1+x^k，1]，{k，1，m}]+O[x]^m//系数列表[#，x]&（*Jean-François Alcover_，2019年9月11日，来自PARI*）

%o（PARI）seq（n）=Vec（prod（k=1，n，if（hammingweight（k）%2==0，1+x^k，1）+o（x*x^n）））\\_Andrew Howroyd_，2018年6月22日

%Y参考A067591，A116492。

%K nonn公司

%0、10

%克里斯蒂安·G·鲍，2006年2月17日