登录
A238639型
n(n+1)/2分区的数学顺序列表中[n,n-1,…,2,1]的位置。
6
1, 1, 2, 6, 23, 103, 498, 2493, 12741, 66224, 348963, 1859009, 9994196, 54155387, 295477841, 1621962199, 8951635343, 49644856801, 276540258555, 1546630084062, 8681889729354, 48900895532763, 276302483274825, 1565747892473958, 8896975706929141, 50683901455201860
抵消
0,3
链接
阿洛伊斯·海因茨,n=0..200时的n,a(n)表
Manfred Scheucher,C代码
例子
Mathematica顺序中6的分区是6、51、42、411、33、321、3111、222、2211、21111、111111。321的位置是a(3)=6。
MAPLE公司
g: =(n,i)->`如果`(n=0,1,g(n-i+1,i-1)+b(n-i,i)):
b: =proc(n,i)选项记忆;`if`(n=0,1,
`如果`(i<1,0,b(n,i-1)+`如果`(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):
seq(a(n),n=0..25); #阿洛伊斯·海因茨2015年6月3日
数学
r[n_]:=表[n-k,{k,0,n-1}];扁平[表格[位置[整数分区[n(n+1)/2],r[n]],{n,0,2}]]
g[n_,i_]:=如果[n==0,1,g[n-i+1,i-1]+b[n-i,i]];b[n_,i_]:=b[n,i]=如果[n==0,1,如果[i<1,0,b[n、i-1]+如果[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}](*Jean-François Alcover公司2015年10月28日之后阿洛伊斯·海因茨*)
关键词
非n
作者
克拉克·金伯利2014年3月4日
扩展
a(13)-a(17)来自曼弗雷德·舒彻2015年6月1日
a(18)-a(25)来自阿洛伊斯·海因茨2015年6月2日
状态
经核准的