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

 

标志

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

提示
(问候来自百科全书行上的整数序列!)
A239948号 n的分区数,使得(不同部分的数目)<最小部分。 8
1,0,1,1,2,1,3,2,4,4,6,9,9,12,14,17,18,25,26,32,38,43,49,62,65,78,92,103,114,142,151,175,203,229,252,302,323,378,422,477,524,619,661,758,847,958,1038,1204,1297,1485,1626,1829,1989,2285,2459,2770,3035 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

0,5个

链接

阿洛伊斯·P·海因茨,n=0..1000时的n,a(n)表

公式

a(n)+邮编:A239952(n)=A000041号(n) 对于n>=0。

例子

a(10)计算这6个分区:[10],[7,3],[6,4],[5,5],[4,3,3],[2,2,2,2]。

枫木

b: =proc(n,i,d)选项记住;`if`(n=0,1,`if`(i<=d+1,0,

加(b(n-i*j,i-1,d+`if`(j=0,0,1)),j=0..n/i)))

结束:

a: =n->b(n$2,0):

顺序(a(n),n=0..80)#海因茨2014年4月2日

数学

z=50;d[p_x]:=d[p]=长度[DeleteDuplicates[p]];f[n_u]:=f[n]=整数部分[n];

表[计数[f[n],p/;d[p]<Min[p]],{n,0,z}](*A239948号*)

表[计数[f[n],p/;d[p]<=Min[p]],{n,0,z}](*A239949号*)

表[计数[f[n],p/;d[p]==Min[p]],{n,0,z}](*A239950*)

表[计数[f[n],p/;d[p]>Min[p]],{n,0,z}](*A239951号*)

表[Count[f[n],p_6;d[p]>=Min[p]],{n,0,z}](*邮编:A239952*)

b[n,i,düu]:=b[n,i,d]=如果[n==0,1,如果[i<=d+1,0,Sum[b[n-i*j,i-1,d+If[j==0,0,1]],{j,0,n/i}]];a[n,n,0];表[a[n],{n,0,80}](*让·弗朗索瓦·阿尔科弗2015年10月12日,之后海因茨*)

交叉引用

囊性纤维变性。A239949号,A239950,A239951号,A239952号.

上下文顺序:A001687号 A159072号 A116928年*A034391号 A239243 A206738号

相邻序列:A239945号 A239946号 A2397年*A239949号 A239950 A239951号

关键字

,容易的

作者

克拉克·金伯利2014年3月30日

状态

经核准的

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

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

上次修改时间:美国东部时间2020年11月28日20:50。包含338755个序列。(运行在oeis4上。)