0,5个

a（n）=A171966年（n）-A045931号（n）=A171967年（n）-A108950号（n） 一。-莱因哈德·祖姆凯勒2010年1月21日

a（n）=和{k=-floor（n/2）+（n mod 2）…-1}A240009号（n，k）。-海因茨2014年3月30日

阿洛伊斯·P·海因茨，n=0..1000时的n，a（n）表

a（6）=3:{[6]，[4,2]，[2,2,2]}；a（7）=3:{[4,2,1]，[3,2,2,1]}。

使用（combinat，partition）：evnbigrodd：=proc（n:：nonnegint）local evencount，oddcount，bigcount，parts，i，j；printlevel：=-1；bigcount：=0；partitions:=partition（n）；对于从1到nops（partitions[i]）的j，do if（op（j，partitions[i]）mod 2<>0），则oddcount:=oddcount+1 fi；如果（j，partitions[i]）mod 2=0）则evencount:=evencount+1 fi-od；如果（evencount>oddcount），则bigcount:=bigcount+1 fi-od；printlevel:=1；return（bigcount）结束过程；seq（evnbigrodd（i），i=1..42）；

#第二个枫树计划：

b： =proc（n，i，t）选项记住；`if`（n=0，

如果`（t<0，1，0），`if`（i<1，0，b（n，i-1，t）+

如果`（i>n，0，b（n-i，i，t+（2*irem（i，2）-1）））））

结束：

a： =n->b（n$2，0）：

顺序（a（n），n=0..80）#海因茨2014年3月30日

p[n_35;：=p[n]=选择[IntegerPartitions[n]，Count[#，\u？OddQ]==计数？EvenQ]&]；t=Table[p[n]，{n，0，10}]（*n的分区，其中#奇数部分=#偶数部分*）

表格格式[t]（*分区，垂直格式*）

表[长度[p[n]]，{n，0，30}](*A045931号*)

(*彼得·J·C·摩西2014年3月10日*）

囊性纤维变性。A045931号对于偶数部分=奇数部分，A108950号对于偶数部分<奇数部分。

囊性纤维变性。A171966年,A130780号. -莱因哈德·祖姆凯勒2010年1月21日

上下文顺序：A096373号 A216961号 A241379号*A167704号 A109522号 A0529号

相邻序列：46 A1089电话 A108947电话 A108948电话*A108950号 A108951号 A108952号

不,改变

lensmiley（Smiley（AT）math.uaa.alaska.edu），2005年7月21日

更多条款来自乔恩特2012年10月4日

经核准的