%I#12 2020年12月18日07:58:49
%S 0,0,1,0,2,1,4,3,7,6,14,14,23,27,41,47,70,84114141190225303370,
%电话:475578738890113136816982058254930483759450554956574,
%电话:7966948311450
%N N的整数分区数,该整数分区具有偶数个部分,并且不能划分为不同的独立部分对,即不是任何一组边的多集并集。
%这种分区的多重性形成了一个非图形分区。
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/GraphicalPartition.html“>图形分区</a>
%e a(2)=1到a(10)=14个分区(空列用点表示):
%e 11。22 2111 33 2221 44 3222 55
%电子1111 2211 4111 2222 6111 3322
%电话:3111 211111 3311 222111 3331
%电子111111 5111 321111 4222
%电话:221111 411111 4411
%电话:311111 2111111 7111
%电子11111111 222211
%电子322111
%电话:331111
%电话:421111
%电话:511111
%电子22111111
%电话:31111111
%电子1111111111
%e例如,分区y=(4,4,3,3,2,2,1,1,1)可以通过三种方式划分为多组边:
%电子{{1,2},{1,2{1,3}
%电子{{1,2},{1,3},}1,3},{1,4},2,4}}
%电子{{1,2},{1,3},}1,4},1,4},2,3}}
%e所有这些都不严格,因此y在a(22)项下计算。
%t strs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[strs[n/d],Min@@#>d&]],{d,选择[Rest[Divisors[n]],And[SquareFreeQ[#],PrimeOmega[#]==2]&]}]];
%t表[Length[Select[Integer Partitions[n],EvenQ[Length[#]]&&strs[Times@@Prime/@#]=={}&]],{n,0,15}]
%Y A320894对这些分区进行了排序(使用Heinz数字)。
%Y A338915允许相等的线对(x,x)。
%Y A339560计算等长分区中的补码。
%Y A339564统计相同类型的因子分解。
%Y A000070统计2n的非多重图形分区,按A339620排名。
%Y A000569统计图形分区,按A320922排序。
%Y A001358列出了半素数,无平方情况下为A006881。
%Y A002100将分区计数为无平方半素数。
%Y A058696统计偶数分区,按A300061排名。
%Y A209816统计多图形分区,按A320924排名。
%Y A320655将因子分解计算为半素数。
%Y A320656将因子分解计算为无平方半素数。
%Y A339617统计了2n个非图形分区,按A339618排名。
%Y A339655计数2n的非循环图形分区,按A339657排序。
%Y以下计算偶数长度的分区并给出其Heinz数:
%Y-A027187没有附加条件(A028260)。
%Y-A096373不能划分为严格的对(A320891)。
%Y-A338914可以划分为严格的对(A320911)。
%Y-A338915不能划分为不同的对(A320892)。
%Y-A338916可以划分为不同的对(A320912)。
%Y-A339560可以划分为不同的严格对(A339561)。
%Y参见A001055、A001221、A005117、A007717、A025065、A030229、A089259、A292432、A320893、A338899、A338903、A339619。
%K nonn,更多
%0、5
%A _Gus Wiseman_,2020年12月10日
|