|
| |
|
| A321730型 |
| 将n的整数分区的Young图划分为与原始分区部分大小相同的垂直部分的方法的数量。 |
|
5
|
|
|
|
1, 1, 1, 3, 8, 23, 79, 303, 1294, 5934, 29385, 156232, 884893
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,4
|
|
|
评论
|
垂直截面是一个部分杨氏图，每行最多有一个正方形。例如，（322）的Young图的合适分区（显示为正整数着色）为：
1 2 3
1 2
2 3
|
|
|
链接
|
|
|
|
例子
|
将5个整数的杨氏图的a（5）=23分区分成与原始分区部分大小相同的垂直部分，显示为正整数的着色：
1 2 3 1 2 3 1 2 3
1 2 3
1 2 3
.
1 2 1 2 1 2 2 1 2 2 1 2 2 1 2 2 1 2 1 2 1 2
1 2 1 3 1 3 2 1 3 1 3 1 2 3 3 2 2 3 3 2
3 2 3 3 2 3 1 1 3 3
.
1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2
1 3 3 2 3 3 3 3 3
3 1 4 3 2 4 3 4 4
4 4 1 4 4 2 4 3 4
.
1
2
三
4
5
|
|
|
数学
|
spsu[，{}]：={{}}；spsu[foo_，set:{i_，___}]：=联接@@函数[s，前缀[#，s]和/@spsu[Select[foo，Complement[#，Complement[set，s]]=={}&]，Complemental[set，s]]/@Cases[foo、{i，___}]；
ptnpos[y_]：=位置[表[1，{#}]&/@y，1]；
ptnverts[y_]：=选择[Join@@Table[Subsets[ptnpos[y]，{k}]，{k，Reverse[Union[y]]}]，UnsameQ@@First/@#&]；
表[Sum[Length[Select[spsu[ptnverts[y]，ptnpos[y]]，Function[p，Sort[Length/@p]==Sort[y]]]，{y，Integer Partitions[n]}]，{n，5}]
|
|
|
交叉参考
|
囊性纤维变性。A000110号,A000258号,A000700型,A000701号,A006052号,A007016号,A008277号,A321728飞机,A321729飞机,321731英镑,A321737飞机,A321738飞机.
|
|
|
关键词
|
非n,更多
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
