%I#24 2021年12月12日11:19:45

%S 1,1,1,3,3,6,8,12,16,23,32,42,58,75102131173220288363466587，

%电话7439291164144817972224273833684122504261337466903510941，

%电话：1318415888190642287627343

%N N的分区数，使得奇数部分的数量大于或等于偶数部分的数目。

%Ca（n）=A108950（n）+A045931（n）=A000041（n）-A108949（n）.-_Reinhard Zumkeller_，2010年1月21日

%C a（n）=和{k=0..n}A240009（n，k）.-_Alois P.Heinz，2014年3月30日

%H Alois P.Heinz，n的表格，n=0..1000时的a（n）</a>

%F G.F.：求和{k>=0}x^k/产品{i=1..k}（1-x^（2*i））^2。

%e a（5）=6，因为我们有5、41、32311211和11111（221不合格）。

%p g：=总和（x^k/（乘积（（1-x^（2*i））^2，i=1..k）），k=0..50）：gser：=系列（g，x=0,50）：seq（系数（gser，x，n），n=1..40）；#_Emeric Deutsch，2007年8月24日

%p#第二个Maple程序：

%pb:=proc（n，i，t）选项记忆`如果`（n=0，

%p`如果`（t>=0，1，0），`如果'（i<1，0，b（n，i-1，t）+

%p`if`（i>n，0，b（n-i，i，t+（2*irem（i，2）-1）））

%p端：

%p a:=n->b（n$2,0）：

%p序列（a（n），n=0..80）；#_Alois P.Heinz，2014年3月30日

%t$RecursionLimit=1000；b[n_，i_，t_]：=b[n，i，t]=如果[n==0，如果[t>=0，1，0]，如果[i<1，0，b[n、i-1，t]+如果[i>n，0，b[n-i，i，t+（2*Mod[i，2]-1）]]；a[n]：=b[n，n，0]；表[a[n]，{n，0，80}]（*_Jean-François Alcover_，2015年5月12日，在_Alois P.Heinz_*之后）

%t opgQ[n_]：=模块[{len=Length[n]，op}，op=Length[Select[n，OddQ]]；op>=len-op]；表[Count[Integer Partitions[n]，_？（opgQ）]，{n，0,50}]（*哈维·P·戴尔，2021年12月12日*）

%Y参见A045931、A108949、A108950。

%Y参考A171966、A171967。-_Reinhard Zumkeller_，2010年1月21日

%K容易，不是

%O 0.4

%2007年8月19日

%E更多术语摘自德国电子报，2007年8月24日