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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A295261型 划分为频率小于或等于其在汇总列表中位置的部分。 2
1, 1, 1, 2, 2, 4, 4, 6, 8, 11, 12, 18, 22, 28, 34, 44, 54, 69, 82, 102, 125, 154, 185, 226, 271, 327, 393, 474, 562, 673, 797, 947, 1124, 1329, 1563, 1846, 2164, 2541, 2974, 3480, 4062, 4738, 5508, 6403, 7432, 8614, 9966, 11530, 13307, 15345, 17670, 20337 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,4
评论
设分区的和为s(1)<s(2)<…<s(k)和s(i)的频率为f(i)。然后我们计算f(i)<=i的那些分区。
链接
阿洛伊斯·海因茨,n=0..2000时的n,a(n)表
例子
分区1+1不计算在内,因为它的最小部分1出现了两次。
分区3+2+2+1被计算在内,因为它的最小部分1出现一次;它的第二小部分2出现两次(和2≤2),第三部分3出现一次(和1≤3)。
MAPLE公司
b: =proc(n,i,t)选项记忆`如果`(n=0,1,`if`(n<i,0,
加(b(n-i*j,i+1,t+`如果`(j=0,0,1)),j=0..分钟(t,n/i))
结束时间:
a: =n->b(n,1美元2):
seq(a(n),n=0..60)#阿洛伊斯·海因茨2017年11月18日
数学
<<组合数学`;
nend=30;
对于[n=1,n<=nend,n++,计数[n]=0;
part=分区[n];
对于[i=1,i<=长度[part],i++,
t=理货[部分[i]]];
条件=真;
对于[j=1,j<=长度[t],j++,
如果[t[[-j,2]]>j,条件=False]];
如果[条件,计数[n]++]]];
打印[表格[count[i],{i,1,nend}]]
交叉参考
囊性纤维变性。A244395号.
关键词
非n
作者
大卫·S·纽曼2017年11月18日
扩展
更多术语来自阿洛伊斯·海因茨2017年11月18日
状态
已批准

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

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

上次修改时间:美国东部夏令时2024年3月29日02:23。包含371264个序列。(在oeis4上运行。)