登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

 

标志

感谢所有在我们年度呼吁中捐款的人!
若要查看捐赠者名单或捐款,请参阅OEIS基金会主页

提示
问候整数序列的在线百科全书!)
A249241 n的分割数(奇数部分)=(偶数部分)。 十七
1, 0, 0,1, 0, 2,0, 3, 0,4, 1, 5,2, 6, 5,7, 8, 8,14, 9, 20,11, 30, 13,40, 17, 55,23, 70, 32,91, 45, 112,65, 140, 91,65, 140, 91,γ,γ,γ,γ,γ,γ 列表图表参考文献历史文本内部格式
抵消

0. 6

评论

A(n)=A2400(n,0)。-阿洛伊斯·P·海因茨,APR 02 2014

链接

Alois P. Heinzn,a(n)n=0…1000的表

公式

A(n)+A23 923 9(n)+A249242(n)=A000 00 09(n)n>=1。

A(n)=[x^ n y^ 0 ]乘积{{i>1 } 1 +x^ i*y^(2×(i mod 2)-1)。-阿洛伊斯·P·海因茨,APR 03 2014

例子

A(9)=4计数这些分区:81, 72, 63,54。

枫树

B=:PROC(n,i,t)选项记住;“如果”(n> i*(i+1)/ 2, 0,

‘n’(n=0,‘i'’(t=0, 1, 0),b(n,i-1,t)+‘If’(i>n,0),

b(n-,i-1,t+`iF’(iRIM(i,2)=1, 1,-x 1)

结束:

A:=N-> B(n元2, 0):

SEQ(A(n),n=0…60);阿洛伊斯·P·海因茨3月15日2014

Mathematica

z=55;p[n]:= p[n]=整数分割[n];d[u]:= d[u]=DeleDeDeLeopule[u];g[u]:= g[u]=长度[u];

表[G] [选择] [P[n],d[[y]==η& ],计数[η,]?ODQ?Enqq&],{n,0,Z}(*)A23 923 9*)

表[G] [选择] [P[n],d[[y]==η& ],计数[η,]?[ODQ]?Enqq&],{n,0,Z}(*)A249240*)

表[G] [选择] [P[n],d[[y]==η& ],计数[η,]?Odqq==计数[*,]?Enqq&],{n,0,Z}(*)A249241*)

表[G] [选择] [P[n],d[[y]==η& ],计数[η,]?ODQ> >计数[*,]?Enqq&],{n,0,Z}(*)A249242*)

表[G] [选择] [P[n],d[[y]==η& ],计数[η,]?ODQ> >计数[*,]?Enqq&],{n,0,Z}(*)A249243*)

(*)皮特·J·摩西3月10日2014*)

B[N],Ii],Ty]=[n> i*(i+1)/2, 0,如果[n=1,0,如果[t== 0, 1, 0 ],b[n,i-1,t] + ] [i> n,0,b[n-,i-1,t+IF ] [mod[i,2 ] ==1, 1,-1,表示],a [n]:=b[n,n,0 ];表[a[n],{n,0, 60 }](*)让弗兰12月27日2015后阿洛伊斯·P·海因茨*)

交叉裁判

囊性纤维变性。A23 923 9A249240A249242A249243A000 00 09.

语境中的顺序:A0217179 A000 821 A000 835*A26395 A240139 A000 88

相邻序列:A23 923 A23 923 9 A249240*A249242 A249243 A249244

关键词

诺恩容易

作者

克拉克·金伯利3月13日2014

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

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

最后修改1月21日22:55 EST 2020。包含331129个序列。(在OEIS4上运行)