%I#19 2021年2月12日11:36:20

%S 0,0,0,1,0,1,1,4,2,6,6,12,12,20,22,38,42,60,73101124164203266，

%电话：31941507649786983119814991797223426733339395248265753，

%U 6999美元

%N N的整数分区数，该整数分区具有偶数个部分，并且不能划分为不同的对，这些对不一定是不同的部分。

%C这样一个分区的多重性形成了一个非循环粒度分区（A339655、A339657）。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/GraphicalPartition.html“>图形分区</a>

%F A027187（n）=a（n）+A338916（n）。

%e a（7）=1到a（12）=12分区：

%电子211111 2222 411111 222211 222222 1 3333

%电子221111 21111111 331111 611111 222222

%电话：311111 511111 22211111 441111

%e 11111111 22111111 32111111 711111

%电话：311111111 411111111 22221111

%电子1111111111 2111111111 322111111

%电话：33111111

%电子42111111

%电话：51111111

%电话：2211111111

%电话：3111111111

%电子11111111111

%e例如，分区y=（3,2,2,1,1,1,1,1）可以用三种方式成对划分：

%e{{1,1}，{1,1{，{2,3}

%e{{1,1}，{1,1{，{1,3}，[2,2}}

%电子{{1,1}，{1,2}，}，1,3}

%e所有这些都不严格，因此y在a（12）项下计算。

%t smcs[n_]：=如果[n<=1，{{}}，连接@@表[Map[Prepend[#，d]&，Select[smcs[n/d]，Min@@#>d&]]，{d，选择[Rest[Divisors[n]]，PrimeOmega[#]==2&]}]]；

%t表格[Length[Select[Integer Partitions[n]，EvenQ[Length[#]]&&smcs[Times@@Prime/@#]=={}&]]，{n，0,10}]

%Y这些分区的Heinz编号为A320892。

%Y均匀长度分区中的补充是A338916。

%Y A000070统计2n的非多重图形分区，按A339620排名。

%Y A000569统计图形分区，按A320922排名。

%Y A001358列出了半素数，无平方情况下为A006881。

%Y A058696统计偶数分区，按A300061排名。

%Y A209816统计多图形分区，按A320924排名。

%Y A320655将因子分解计算为半素数。

%Y A322353将因子分解计算为不同的半素数。

%Y A339617统计了2n个非图形分区，按A339618排名。

%Y A339655统计了2n个非循环粒度分区，按A339657排名。

%Y A339656统计了循环粒度分区，按A339658排名。

%Y以下计数偶数长度的分区，并给出它们的Heinz数：

%Y-A027187没有附加条件（A028260）。

%Y-A096373不能划分为严格的对（A320891）。

%Y-A338914可以划分为严格的对（A320911）。

%Y-A338916可以划分为不同的对（A320912）。

%Y-A339559不能划分为不同的严格配对（A320894）。

%Y-A339560可以划分为不同的严格对（A339561）。

%Y参见A001055、A007717、A025065、A320656、A320732、A320893、A338898、A338902。

%K nonn，更多

%0、9

%A _Gus Wiseman_，2020年12月10日