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

 

标志

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

提示
(问候来自百科全书行上的整数序列!)
A239949号 n的分区数,使得(不同部分的数目)<=最小部分。 5
1、1、2、2、3、3、5、5、8、12、12、18、17、26、25、36、36、50、69、69、93、95、123、129、164、171、215、229、278、300、365、387、468、507、595、652、760、830、966、1055、1214、1336、1530、1674、1910、2104、2380、2617、2953、3253、3656、4019、4504 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

0,3个

链接

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

公式

a(n)+A239951号(n)=A000041号(n) 对于n>=0。

例子

a(8)计算这8个分区:8、62、53、44、422、332、2222、11111111。

枫木

b: =proc(n,i,d)选项记住;`if`(n=0,1,`if`(i<=d,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_9]:=b[n,i,d]=如果[n==0,1,如果[i<=d,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年11月17日,之后海因茨*)

交叉引用

囊性纤维变性。A239948号,A239950,A239951号,邮编:A239952.

上下文顺序:甲275972 A090492号 A325768飞机*A103609号 A237800 A232697号

相邻序列:A239946号 A2397年 A239948号*A239950 A239951号 邮编:A239952

关键字

,容易的

作者

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

状态

经核准的

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

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

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