登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A239948型 n个分区的数量,使得(不同部分的数量)<最小部分。 8
1, 0, 1, 1, 2, 1, 3, 2, 4, 4, 6, 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
链接
阿洛伊斯·海因茨,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]。
MAPLE公司
b: =proc(n,i,d)选项记忆`if`(n=0,1,`if`(i<=d+1,0,
加(b(n-i*j,i-1,d+`如果`(j=0,0,1)),j=0..n/i))
结束时间:
a: =n->b(n$2,0):
seq(a(n),n=0..80)#阿洛伊斯·海因茨2014年4月2日
数学
z=50;d[p_]:=d[p]=长度[DeleteDuplicates[p]];f[n_]:=f[n]=整数分区[n];
表[计数[f[n],p_/;d[p]<最小值[p]],{n,0,z}](*A239948型*)
表[计数[f[n],p_/;d[p]<=Min[p]],{n,0,z}](*A239949型*)
表[计数[f[n],p_/;d[p]==最小值[p]],{n,0,z}](*A239950型*)
表[计数[f[n],p_/;d[p]>最小值[p]],{n,0,z}](*A239951型*)
表[计数[f[n],p_/;d[p]>=最小值[p]],{n,0,z}](*A239952型*)
b[n_,i_,d_]:=b[n,i,d]=如果[n==0,1,如果[i<=d+1,0,和[b[n-i*j,i-1,d+如果[j==0、0、1]],{j,0,n/i}]];a[n]:=b[n,n,0];表[a[n],{n,0,80}](*Jean-François Alcover公司2015年10月12日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A239949型A239950型A239951型A239952型.
关键词
非n容易的
作者
克拉克·金伯利2014年3月30日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月25日21:09。包含371989个序列。(在oeis4上运行。)