|
|
例子
|
a（2）=1到a（4）=12个多集分区的非同构代表：
{{1},{1}} {{1},{1,1}} {{1},{1,1,1}}
{{1},{1},{1}} {{1,1},{1,1}}
{{1},{2},{2}} {{1},{1},{1,1}}
{{1},{1},{2,2}}
｛｛1｝，｛1｝，｛2，3｝｝
{{1},{2},{1,2}}
{{1},{2},{2,2}}
｛｛2｝，｛2｝，｛1，2｝｝
{{1},{1},{1},{1}}
{{1},{1},{2},{2}}
{{1},{2},{2},{2}}
{{1},{2},{3},{3}}
|
|
|
数学
|
sps[{}]：={{}}；sps[set:{i_，___}]：=联接@@函数[s，前缀[#，s]和/@sps[Complement[set，s]]/@Cases[子集[set]，{i，___}]；
mpm[n_]：=连接@@表[Union[Sort[Sort/@（#/.x_Integer:>s[[x]]）]和/@sps[Range[n]]]，{s，Flatten[MapIndexed[Table[#2，{#1}]&，#]]和/@整数分区[n]}]；
brute[m_]：=第一个[Sort[Table[Sort[排序/@（m/.Rule@@@表[{i，p[i]]}，{i，长度[p]}]）]，{p，排列[Union@@m]}]]；
表[Length[Union[brute/@Select[mpm[n]，Select[Tuples[#]，UnsameQ@@#&]={}&]]，{n，0，6}]
|
