A323450-OEIS公司

A323450型

用求和到n的正整数填充Young图的方法的数量，使得所有行和列都弱增加。

1, 1, 3, 6, 14, 26, 56, 103, 203, 374, 702, 1262, 2306, 4078, 7242, 12628, 21988, 37756, 64682, 109606, 185082, 309958, 516932, 856221, 1412461, 2316416, 3783552

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

抵消

0,3

形状y的广义Young表是用正整数替换y的Ferrers图中的点而得到的数组。

链接

n，a（n）的表（n=0..26）。

n实验室，Young图表.

无悔数学家博客，广义杨表.

例子

a（4）=14广义杨表：

4 1 3 2 2 1 1 2 1 1 1 1

1 2 1 1 1 2 1 1 1 1 1

3 2 2 1 1 1 1

1 1 1

1 1

2 1

a（5）=26广义杨表：

5 1 4 2 3 1 1 3 1 2 2 1 1 1 2 1 1 1 1 1

1 2 1 1 1 3 1 2 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1

4 3 3 1 2 1 2 2 1 1 1 1

1 1 1 1 1 2 1 1 1 1 1

1 2 1 1 1 1 1

3 2 2 1 1 1

1 1 1

1 1

2 1

数学

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

facs[n_]：=如果[n<=1，{{}}，连接@@表[Map[Prepend[#，d]&，Select[facs[n/d]，Min@@#>=d&]]，{d，Rest[Divisors[n]]}]；

ptnplane[n_]：=并集[Map[primeMS，Join@@Permutations/@facs[n]，{2}]]；

表[Sum[Length[Select[ptnplane[Times@@Prime/@y]，And@@（LessEqual@@@Transpose[PadRight[#]/.（0->Infinity）]）&]]，{y，Integer Partitions[n]}]，{n，10}]

交叉参考

囊性纤维变性。A000085美元,A000219号,A003293号,A053529美元,A114736号,A138178号,A296188型,A299968型.

囊性纤维变性。A323436飞机,A323437型,A323438型,A323439型,A323451型.

上下文中的序列：A049940号 A265947型 A358831型*A051749号 A380126型 A278788型

相邻序列：A323447飞机 A323448型 A323449型*A323451型 A323452型 A323453型

关键词

非n,更多

作者

古斯·怀斯曼2019年1月16日

扩展

a（16）-a（26）来自Seiichi Manyama先生2020年8月19日

状态

经核准的