A321854-OEIS公司

A321854型

不规则三角形，其中T（H（u），H（v））是将u的Young图划分为垂直截面的方法数，其大小为v的部分，其中H是Heinz数。

1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 2, 1, 0, 0, 0, 0, 1, 1, 3, 1, 0, 2, 0, 4, 1, 0, 0, 0, 3, 1, 0, 0, 0, 0, 0, 0, 1, 0, 2, 2, 5, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 4, 1, 0, 0, 0, 6, 0, 6, 1, 1, 3, 4, 6, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,11

第n行具有长度A000041号(A056239号（n））。

垂直截面是一个部分杨氏图，每行最多有一个正方形。

链接

n=1..87时的n，a（n）表。

例子

三角形开始：

0 1

1 1

0 0 1

0 2 1

0 0 0 0 1

1 3 1

0 2 0 4 1

0 0 0 3 1

0 0 0 0 0 0 1

0 2 2 5 1

0 0 0 0 0 0 0 0 0 0 1

0 0 0 0 0 4 1

0 0 0 6 0 6 1

1 3 4 6 1

0 0 0 0 0 0 0 0 0 0 0 0 0 0 1

0 0 4 10 4 8 1

第12行将（211）的杨氏图的以下分区计算为垂直部分（以正整数着色显示）：

T（12,7）=0：

T（12,9）=2:1 2 1 2

1 2

2 1

T（12,10）=2:1 2 1 2

2 1

T（12,12）=5:1 2 1 2 1 1 2 1

3 2 3 1 3

3 3 2 3 1

T（12,16）=1:1 2

三

数学

素数MS[n_]：=如果[n==1，{}，扁平[Cases[FactorInteger[n]，{p_，k_}:>表[PrimePi[p]，{k}]]]；

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_]：=选择[Rest[Subsets[ptnpos[y]]]，UnsameQ@@First/@#&]；

表[With[{y=Reverse[primeMS[n]]}，表[Length[Select[spsu[ptnverts[y]，ptnpos[y]]，Sort[Length/@#]==primeMS[k]&]]，{k，Sort[Times@@Prime/@#&/@Integer Partitions[Total[primeMS[n]]}]，{n，18}]

交叉参考

囊性纤维变性。A000085号,A000110号,A007016号,A056239号,A122111号,A153452号,A215366型,A296188型,A300121型,A318396型,A321719飞机-321731英镑,A321737飞机,A321738飞机,A321742飞机-A321765飞机.

上下文中的序列：A143542号 A072612号 A116378号*A227839号 A291748型 A124744号

相邻序列：A321851型 A321852型 A321853型*A321855型 A321856型 A321857型

关键字

非n,标签

作者

古斯·怀斯曼2018年11月19日

状态

经核准的