A268700-OEIS公司

268700加元

将n的所有分区[p_1，p_2，…，p_k]上具有j的p_j拷贝和长度为k的最长递增子序列的序列总数相加为不同部分。

1, 1, 1, 3, 4, 14, 46, 111, 330, 1614, 7348, 21340, 98145, 379405, 2633085, 14871033, 57284558, 278927415, 1609313975, 8289565670, 74945364815, 522977754235, 2403799401259, 14180489136597, 83964652635668, 623008803758260, 3918144764978718, 46950727351392315 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`0,4`
	链接	`阿洛伊斯·海因茨，n=0..90时的n，a（n）表` `J.D.Horton和A.Kurn，《完全递增子序列的计数序列》，《数值国会》，33（1981），75-80。MR 681905型`
	例子	`将4分成不同的部分是[3,1]，[4]，给出了a（4）=4序列：1112，1121，1211，1111。`
	MAPLE公司	`g： =proc（l）选项记忆；（n->f（l[1..nops（l）-1]）` `二项式（n-1，l[-1]-1）+加法（f（sort（subsop（j=l[j]）` `-1，l）），j=1…nops（l）-1））（添加（i，i=l））` `结束时间：` f： =l->（n->`if`（n<2或l[-1]=1，1，`if`）（l[1]=0，0，`if`( `n=2，二项式（l[1]+l[2]，l[1]）-1，g（l）））（nops（l）` h： =（n，i，l）->`如果`（n>i（i+1）/2，0，`如果'（n=0，f（l），h（n，i-1，l） +`如果`（i>n，0，h（n-i，i-1，[i，l[]]））： `a： =n->h（n$2，[]）：` `seq（a（n），n=0..30）；`
	数学	g[l]：=g[l]=函数[n，f[Most[l]]二项式[n-1，l[-1]-1]+求和[f[Sort[ReplacePart[l，j->l[j]-1]]]，{j，1，Length[l]-1}]][Total[l]]；f[l]：=函数[n，如果[n<2\|\|l[[-1]]==1，1，如果[l[[1]]==0，0，如果[n==2，二项式[l[1]]+l[2]]，l[1]]-1，g[l]]]][长度[l]]；h[n_，i_，l]：=如果[n>i（i+1）/2，0，如果[n==0，f[l]，h[n，i-1，l]+如果[i>n，0，h[n-i，i-1，连接[{i}，l]]]；a[n]：=h[n，n，{}]；表[a[n]，｛n，0，30｝](Jean-François Alcover公司，2017年2月11日，翻译自Maple）
	交叉参考	`囊性纤维变性。A047909号，A268698型，A268699型，邮编：268701.` `上下文中的序列：A006074号 A081714号 A117718号A349001飞机 A176857号 A356463型` `相邻序列：A268697型 A268698型 A268699型A268701型 A268702型 A268703型`
	关键词	`非n`
	作者	`阿洛伊斯·海因茨2016年2月11日`
	状态	`经核准的`