A238639-OEIS公司

A238639型

n（n+1）/2分区的数学顺序列表中[n，n-1，…，2，1]的位置。

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日之后阿洛伊斯·海因茨*)

交叉参考

囊性纤维变性。A000217号,A080577号（Mathematica排序），A238638型,A238640型,A330661,A332706飞机.

上下文中的序列：A374550型 A279573型 A174193号*A226995型 A301897型 A374546型

相邻序列：A238636型 A238637型 A238638型*A238640型 A238641型 A238642型

关键词

非n

作者

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

扩展

a（13）-a（17）来自曼弗雷德·舒彻2015年6月1日

a（18）-a（25）来自阿洛伊斯·海因茨2015年6月2日

状态

经核准的