登录
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)选项记忆;`if`(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}]]
交叉参考
关键词
非n
作者
大卫·S·纽曼2017年11月18日
扩展
更多术语来自阿洛伊斯·海因茨2017年11月18日
状态
经核准的