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、89516353、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）选项记忆`如果`（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飞机.` `上下文中的序列：A356111型 A279573型 A174193号A226995型 A301897型 A022558号` `相邻序列：A238636型 A238637型 A238638型A238640型 238641元 A238642型`
	关键词	`非n`
	作者	`克拉克·金伯利2014年3月4日`
	扩展	`a（13）-a（17）来自曼弗雷德·舒彻2015年6月1日` `a（18）-a（25）来自阿洛伊斯·海因茨2015年6月2日`
	状态	`已批准`