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

 

标志
提示
(问候来自整数序列在线百科全书!)
A238639号 [n,n-1,…,2,1]在n(n+1)/2的Mathematica有序分区列表中的位置。 6
1、1、2、6、23、103、498、2493、12741、66224、348963、1859009、9994196、54155387、295477841、1621962199、8951635343、49644856801、276540258555、1546630084062、8681889729354、48900895532763、276302483274825、156574792473958、8896975706929141、50683901455201860 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

0,3个

链接

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

曼弗雷德·舍切尔,C代码

例子

在数学顺序中,6的划分是6,51,42,411,33,321,3111,222,2211,21111,111111。321的位置是a(3)=6。

枫木

g: =(n,i)->`(n=0,1,g(n-i+1,i-1)+b(n-i,i)):

b: =proc(n,i)选项记忆`如果`(n=0,1,

如果`(i<1,0,b(n,i-1)+`if`(i>n,0,b(n-i,i)))

结束:

a: =n->(m->加(b(m-j,min(j,m-j)),j=n+1..m)+

g(m-n,n))(n*(n+1)/2):

顺序(a(n),n=0..25);  #海因茨2015年6月3日

数学

r[n_u]:=表[n-k,{k,0,n-1}];展平[Table[Position[IntegerPartitions[n(n+1)/2],r[n]],{n,0,2}]]

g[n_U,i_U]:=如果[n==0,1,g[n-i+1,i-1]+b[n-i,i]];b[n_U,i_U]:=b[n,i]=如果[n==0,1,如果[i<1,0,b[n,i-1]+如果[i>n,0,b[n-i,i]]];a[n_u]:=函数[m,Sum[b[m-j,Min[j,m-j]],{j,n+1,m}]+g[m-n,n]][n(n+1)/2];表[a[n],{n,0,25}](*让·弗朗索瓦·阿尔科弗2015年10月28日,之后海因茨*)

交叉引用

囊性纤维变性。A000217,A080577号(Mathematica排序),甲238638,A238640,A330661型,A332706飞机.

上下文顺序:A356111型 A279573号 A174193号*A226995年 A301897型 A022558号

相邻序列:邮编:A238636 邮编:A238637 甲238638*A238640 A238641号 A238642号

关键字

作者

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

扩展

a(13)-a(17)来自曼弗雷德·舍切尔2015年6月1日

a(18)-a(25)来自海因茨2015年6月2日

状态

经核准的

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

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

上次修改时间:2022年9月26日17:47。包含357002个序列。(运行在oeis4上。)