A225624-组织环境信息系统

A225624型

行读取的三角形：T（n，k）是长度为n的下降序列数，精确到k-1下降，n>=1，1<=k<=n。

1, 2, 0, 3, 1, 0, 4, 5, 0, 0, 5, 15, 3, 0, 0, 6, 35, 25, 1, 0, 0, 7, 70, 117, 28, 0, 0, 0, 8, 126, 405, 271, 22, 0, 0, 0, 9, 210, 1155, 1631, 483, 13, 0, 0, 0, 10, 330, 2871, 7359, 5126, 711, 5, 0, 0, 0, 11, 495, 6435, 27223, 36526, 13482, 889, 1, 0, 0, 0, 12, 715, 13299, 86919, 199924, 151276, 30906, 962, 0, 0, 0, 0 (列表;桌子;图表;参考文献;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`下降序列是一个序列[d（1），d（2），…，d（n）]，其中d（1。` `行总和为A225588型（下降序列数）。` `第一列为C（n，1）=n，第二列为C=A000332号（n+1），第三列似乎是A095664号（n-5），对于n>=5。`
	链接	`Joerg Arndt和Alois P.Heinz，行n=1..100，扁平（Joerg Arndt的第n行=1..18）`
	例子	`三角形开始：` `01: 1,` `02: 2, 0,` `03: 3, 1, 0,` `04: 4, 5, 0, 0,` `05: 5, 15, 3, 0, 0,` `06: 6, 35, 25, 1, 0, 0,` `07: 7, 70, 117, 28, 0, 0, 0,` `08: 8, 126, 405, 271, 22, 0, 0, 0,` `09: 9, 210, 1155, 1631, 483, 13, 0, 0, 0,` `10: 10, 330, 2871, 7359, 5126, 711, 5, 0, 0, 0,` `11: 11, 495, 6435, 27223, 36526, 13482, 889, 1, 0, 0, 0,` `12: 12, 715, 13299, 86919, 199924, 151276, 30906, 962, 0, 0, 0, 0,` `13: 13, 1001, 25740, 247508, 903511, 1216203, 546001, 63462, 903, 0, 0, 0, 0,` `...` `的下降数A225588型（5） =23个长度为5的下降序列为（点代表零）：` `.#：下降序列。下降次数` `01: [ . . . . . ] 0` `02: [ . . . . 1 ] 0` `03: [ . . . 1 . ] 1` `04: [ . . . 1 1 ] 0` `05: [ . . 1 . . ] 1` `06: [ . . 1 . 1 ] 1` `07: [ . . 1 . 2 ] 1` `08:[..1 1.]1` `09: [ . . 1 1 1 ] 0` `10: [ . 1 . . . ] 1` `11: [ . 1 . . 1 ] 1` `12: [ . 1 . . 2 ] 1` `13: [ . 1 . 1 . ] 2` `14: [ . 1 . 1 1 ] 1` `15: [ . 1 . 1 2 ] 1` `16: [ . 1 . 2 . ] 2` `17: [ . 1 . 2 1 ] 2` `18: [ . 1 . 2 2 ] 1` `19: [ . 1 1 . . ] 1` `20: [ . 1 1 . 1 ] 1` `21: [ . 1 1 . 2 ] 1` `22: [ . 1 1 1 . ] 1` `23: [ . 1 1 1 1 ] 0` `有5个序列有0个下降，15个序列有1个下降，3个序列有2个下降，0个序列有3个或5个下降。因此，第5行是[5，15，3，0，0]。`
	MAPLE公司	`b： =proc（n，i，t）选项记忆；局部j；如果n<1，则[0$t，1]` `其他[]；对于从0到t+1的j，请执行zip（（x，y）->x+y，%，` b（n-1，j，t+`如果`（j<i，1，0），0）od；%fi（菲涅耳） `结束时间：` `T： =proc（n）局部l；l： =b（n-1，0，0）：l[]，0$（n-nops（l））结束：` `seq（T（n），n=1..13）#阿洛伊斯·海因茨，2013年5月18日`
	数学	`b[n_，i_，t_]：=b[n，i，t]=模块[{j，pc}，如果[n<1，追加[Array[0&，t]，1]，pc={}；对于[j=0，j<=t+1，j++，pc=Plus@@PadRight[{pc，b[n-1，j，t+If[j<i，1，0]]]；个人计算机]]；T[n_]：=模[{l}，l=b[n-1，0，0]；连接[l，数组[0&，n-Length[l]]]；表[T[n]，{n，1，12}]//扁平(Jean-François Alcover公司2014年2月27日之后阿洛伊斯·海因茨)`
	黄体脂酮素	`（圣人）#阿洛伊斯·海因茨之后。` `@缓存函数` `定义b（n，i，t，n）：` `B=[0代表范围（N）内的x]` `如果n<1:B[t]=1；返回B` `对于（0..t+1）中的j：` `B=映射（运算符.add，B，B（n-1，j，t+int（j<i），n））` `返回B` `定义T（n）：返回b（n-1，0，0，n）` `对于（1..9）中的n：T（n）#彼得·卢什尼2013年5月20日；2013年5月21日更新`
	交叉参考	`上下文中的序列：A284871型 A202064型 A144955号A168020型 A321878型 A225084型` `相邻序列：A225621型 A225622型 A225623型A225625美元 A225626型 A225627型`
	关键词	`非n,表`
	作者	`乔格·阿恩特，2013年5月11日`
	状态	`已批准`