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

 

标志

感谢每一位在我们的年度募捐活动中捐款的人!
要查看捐赠者列表或进行捐赠,请参见OEIS基金会主页。

提示
(问候来自整数序列在线百科全书!)
邮编:A182747 不包含1的分区数的平分(奇数部分)A002865号. 13

%我

%第0,1,2,4,8,14,24,41,661051652533835748471238179425733660,

%电话:51707245100871395919196262523571748342651218733116600,

%传真:15503820534327092835616946661060923779290610287641330777217164862207851

%N不包含1的分区数的平分(奇数部分)作为A002865的一部分。

%cA(n+1)=2n的分区p的个数,使得(p的部分数)是p的一部分,因为n>=0。-克拉克金伯利,2014年3月2日

%对于a href=<a1.7,共827页,共827页</a>

%F a(n)=p(2*n+1)-p(2*n),其中p是配分函数,a00041。-乔治•贝克,2011年8月14日

%p b:=proc(n,i)选项记忆;

%p如果n<0则为0

%p elif n=0然后1

%p elif i<2然后为0

%p其他b(n,i-1)+b(n-i,i)

%p fi公司

%p端:

%p a:=n->b(2*n+1,2*n+1):

%p seq(a(n),n=0..40);#u Alois p.Heinz_2010年12月1日

%t f[n_u]:=表[PartitionsP[2k+1]-PartitionsP[2k],{k,0,n}](*\u George Beck_2011年8月14日*)

%t(*也*)

%t表[Count[IntegerPartitions[2n],p_6;MemberQ[p,Length[p]]],{n,20}](*_ClarkKimberling_2014年3月2日*)

%t b[nˉ,iˉu]:=b[n,i]=其中[n<0,0,n==0,1,i<2,0,True,b[n,i-1]+b[n-i,i]];a[n_u]:=b[2*n+1,2*n+1];表[a[n],{n,0,40}](*.*Jean-François AlcoverΞu,2016年8月29日,在ΞAlois P.HeinzΜux之后)

%Y比照A000041、A002865、A058695、A135010、A138121、A182740、A182742、A182743、A182746。

%不,别紧张

%0.3度

%奥马尔E.波尔,2010年12月1日

%更多条款来自2010年12月1日的海因茨

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

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

上次修改时间:2021年1月18日12:00 EST。包含340254个序列。(运行在oeis4上。)