%I#6 2022年9月10日14:02:27

%第1,1,2,6,17,461665532093页

%N奇数多集的多集数，其多集并集是一个大小为N的多集，覆盖一个具有弱递减重数的初始区间。

%H Gus Wiseman，<a href=“https://docs.google.com/document/d/e/2PACX-1vR-C_picqWlu0KOguRGWaPjhS2HY7m43aGXGDcolDh4Qtyy-pu2lkq5mbHAbiMSyQoiIESG2mCGtc2j/pub“>与无间隙多集相关的多集分区的计数和排序类</a>

%e a（1）=1到a（4）=17个多集分区：

%e｛｛1｝｝｛1｝，｛1｝｝｛1，1｝｝｛1，1｝｝｛1｝，｛1，1｝｝

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

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

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

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

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

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

%e｛｛2｝，｛1，1，3｝｝

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

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

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

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

%e{{1}，{1}，{1{，{1}}

%e{{1}，{1}，{1{，{2}}

%e{{1}，{1}，{2}，}

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

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

%sps[{}]：={{}}；sps[set:{i_，___}]：=联接@@函数[s，前缀[#，s]和/@sps[Complement[set，s]]/@Cases[子集[set]，{i，___}]；

%t mps[set_]：=联合[Sort[Sort/@（#/.x_Integer:>set[[x]]）]&/@sps[Range[Length[set]]]；

%t strnorm[n_]：=扁平[MapIndexed[表[#2，{#1}]&，#]]&/@IntegerPartitions[n]；

%t表[Length[Select[Join@@mps/@strnorm[n]，OddQ[Times@@Length/@#]&]]，{n，0,5}]

%Y A000041统计整数分区，严格来说是A000009。

%Y A000670计数图案，按A333217排名，项链A019536。

%Y A011782统计覆盖初始间隔的多集。

%Y奇数大小多集按A000302、A027193、A058695计数，按A026424排序。

%Y其他条件：A035310、A063834、A330783、A356938、A356943、A356 954。

%Y其他类型：A050330、A356932、A35693、A35695。

%Y参见A055887、A072233、A270995、A304969、A349050和A349055。

%K nonn，更多

%0、3

%A _古斯·维塞曼_，2022年9月9日