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

 

标志

请做一个捐赠让OEIS继续运行。我们现在已经56岁了。在过去的一年里,我们增加了10000个新序列,达到了近9000个引用(通常说“感谢OEI的发现”)。
其他方式捐赠

提示
(问候来自整数序列在线百科全书!)

修订历史记录A108949号

(带下划线的文本是附加; 删除线文本是删除.)

显示条目1-10|旧的更改
A108949号 偶数部分多于奇数部分的n的划分数。
(历史;已发布版本)
#25通过海因茨美国东部时间2015年11月2日星期一17:09:23
状态

提出

经核准的

#24通过米歇尔·马库斯美国东部时间2015年11月2日星期一12:01:33
状态

编辑

提出

#23通过米歇尔·马库斯美国东部时间2015年11月2日星期一12:01:22
黄体脂酮素

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

状态

提出

编辑

#22个通过让·弗朗索瓦·阿尔科弗美国东部时间2015年11月2日星期一11:52:14
状态

编辑

提出

#21通过让·弗朗索瓦·阿尔科弗2015年11月2日星期一11:52:05
数学

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}](*让·弗朗索瓦·阿尔科弗2015年11月2日,之后海因茨*)

#20个通过让·弗朗索瓦·阿尔科弗美国东部时间2015年11月2日星期一11:51:18
数学

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日,之后海因茨*)

状态

经核准的

编辑

#十九通过R、 J.马萨美国东部时间2015年10月31日星期六13:38:55
状态

编辑

经核准的

#十八通过R、 J.马萨美国东部时间2015年10月31日星期六13:38:47
枫木

使用(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);

带(组合,分区):

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);

作者

_蓝笑脸(笑脸()数学.阿拉伯联合酋长国.阿拉斯加.埃杜),_,2005年7月21日

状态

经核准的

编辑

#17通过海因茨美国东部时间2014年3月30日星期日18:53:17
状态

编辑

经核准的

#16通过海因茨美国东部时间2014年3月30日星期日18:53:12
链接

Alois P.Heinz,<a href=“/A108949号/b108949.txt“>n,a(n)表,n=0..1000</a>

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

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

上次修改日期:美国东部时间2020年11月26日17:17。包含338641个序列。(运行在oeis4上。)