A241153-OEIS公司

A241153号

在定义的分区图G（n）中具有最大度的分区数A241150型.

2, 1, 1, 2, 1, 1, 2, 5, 1, 1, 2, 5, 10, 1, 1, 2, 5, 10, 20, 1, 1, 2, 5, 10, 20, 36, 1, 1, 2, 5, 10, 20, 36, 65, 1, 1, 2, 5, 10, 20, 36, 65, 110, 1, 1, 2, 5, 10, 20, 36, 65, 110, 185, 1, 1, 2, 5, 10, 20, 36, 65, 110, 185, 300 (列表；图表；参考；听；历史；文本；内部格式)

	偏移	`2,1`
	评论	`a（n）=G（n）第n行的最后一个数字，对于n>=2。此序列中的数字可以格式化为三角形：` `2` `1 1 2` `1 1 2 5` `1 1 2 5 10` `1 1 2 5 10 20` `1 1 2 5 10 20 36 ...` `删除列1离开` `1 2` `1 2 5` `1 2 5 10` `1 2 5 10 20` `1 2 5 10 20 36... ,` `其中第n行与的第一个n+1项相同A000712号.`
	链接	`n=2..65时的n，a（n）表。`
	例子	`a（9）计算这5个分区：5211、4311、42111、321111、32211，它们都有5次，这是图G（9）的最大值，如在Mathematica程序中输入k=9所示。（请参阅的示例部分A241150型.)`
	数学	`z=25；spawn[part_]：=映射[Reverse[Sort[Flatten[ReplacePart[part，{#-1，1}，Position[parte，#，1，1][1]][[1]]]&，DeleteCases[DeleteDuplicates[part]，1]]；` `unspawn[part_]：=如果[Length[Cases[part，1]]>0，映射[ReplacePart[Most[part]，位置[Most[part]，#，1，1][[1]][[1]]->#+1]&，DeleteDuplicates[Most[part]]]，{}]；m=地图[Last[Transpose[Tally[Map[#[2]]&，Tally[Platten[{Map[unspawn，#]，Map[spawn、#]}，2]&[Integer Partitions[#]]]]]&，1+Range[z]]；` `列[m](244150英镑作为数组）` `压扁[m](A241150型作为序列）` `表[长度[m[[n]]]，{n，1，z}](A241151型)` `表[Max[m[[n]]]，{n，1，z}](第244152页)` `表[Last[m[[n]]]，{n，1，z}](A241153号)` `（接下来，显示图形G（k））` `k=8；graph=扁平[表[part=整数分区[k][[n]]；Map[FromDigits[part]->FromDiges[#]&，spawn[part]]，{n，1，PartitionsP[k]}]；图形[Graph，VertexLabels->“Name”，ImageSize->500，ImageAdding->20](彼得·J·C·摩西2014年4月15日）`
	交叉参考	`囊性纤维变性。A241150型,A241151型,第244152页.` `上下文中的序列：A326371型 A226304型 A101022号A213852型 A051064号 A280509型` `相邻序列：244150英镑 A241151型第244152页A241154号 A241155型 A241156号`
	关键词	`非n,容易的`
	作者	`克拉克·金伯利和彼得·J·C·摩西2014年4月17日`
	状态	`经核准的`