登录
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的分区。

链接

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

例子

分区1+1不计算,因为它的最小部分1出现两次。

对分区3+2+2+1进行计数,因为它的最小部分1出现一次;它的下一个最小部分2出现两次(并且2<=2),第三部分3出现1次(1<=3)。

枫木

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

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

结束:

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

顺序(a(n),n=0..60)#海因茨2017年11月18日

数学

<<Combinica`;

净=30;

对于[n=1,n<=nend,n++,计数[n]=0;

[分区数];

对于[i=1,i<=长度[part],i++,

t=计数[第[[i]]];

条件=真;

对于[j=1,j<=长度[t],j++,

如果[t[[-j,2]]>j,条件=False]];

如果[条件,计数[n]+]]];

打印[表[计数[i],{i,1,nend}]]

交叉引用

囊性纤维变性。邮编:A244395.

上下文顺序:A227135号 邮编:A162417 A240012型*A293627号 A264393号 A094858号

相邻序列:A295258号 A295259号 A295260型*A295262 A295263 A295264

关键字

作者

大卫·S·纽曼2017年11月18日

扩展

更多条款来自海因茨2017年11月18日

状态

经核准的

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

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

上次修改时间:2021年1月26日13:18。包含340439个序列。(运行在oeis4上。)