登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A108949号 奇数部分大于n个偶数部分的分区。 9
0、0、1、0、2、1、3、3、6、7、10、14、19、26、33、45、58、77、97、127、161、205、259、326、411、510、639、786、980、1197、1482、1800、2216、2677、3275、3942、4793、5749、6951、8309、9995、11912、14259、16944、20194、23926、28402、33559、39687、46767、55120、64780、76110、89222 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

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]}。

枫木

带(组合,分区):

evnbigrodd:=proc(n::nonnegint)

本地平均数,奇数,大数,零件,i,j;

大计数:=0;

分区:=分区(n);

对于从1到nop(分区)的i

平均数:=0;

奇数:=0;

对于从1到nops(分区[i])的j

如果(op(j,分区[i])mod 2<>0),则

奇数:=奇数+1

金融机构;

如果(op(j,分区[i])mod 2=0),则

平均数:=平均数+1

金融机构

外径;

如果(evencount>oddcount),则

大数:=大数+1

金融机构

外径;

返回(bigcount)

结束程序;

序号(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日*)

b[n,i,tüu]:=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,i,t]=b[n,n,0];表[a[n],{n,0,80}](*让·弗朗索瓦·阿尔科弗2015年11月2日,之后海因茨*)

黄体脂酮素

(PARI)a(n)={nb=0;forpart(p=n,nb+=(2*#(选择(x->x%2,Vec(p))<#p););nb;}\\米歇尔·马库斯2015年11月2日

交叉引用

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

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

上下文顺序:A096373号 A216961号 A241379号*A167704号 A109522号 A052959号

相邻序列:A108946号 A108947电话 A108948电话*A108950号 A108951号 A108952号

关键字

作者

蓝笑脸2005年7月21日

扩展

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

状态

经核准的

查找|欢迎光临|维基|登记|音乐|地块2|演示|索引|浏览|更多|网络摄像头
新贡献。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

许可协议,使用条款,隐私政策。.

上次修改日期:美国东部时间2020年10月27日05:38。包含338035个序列。(运行在oeis4上。)