prptns[m_]：=并集[Sort/@If[Length[m]==0，{{}}，连接@@Table[Prepend[#，m[[ipr]]:/@prptns[删除[m，列表/@ipr]]，{ipr，选择[Prepend[{#}，1]:/@Select[Range[2，Length[Pm]]，m[#]]>m[[#-1]]&]，UnsameQ@@m[#]&]}]]]；
strnorm[n_]：=扁平[MapIndexed[表[#2，{#1}]&，#]]&/@IntegerPartitions[n]；
csm[s_]：=使用[{c=Select[Tuples[Range[Length[s]]，2]，And[OrderedQ[#]，UnsameQ@@#，Length[Intersection@@s[[#]]>0]&]}，如果[c=={}，s，csm[Union[Append[Delete[s，List/@c[[1]]]，Union@@s[[c[1]]]]]；
表[Length[Select[strnorm[2*n]，Select[prptns[#]，And[UnsameQ@@#，Length[csm[#]]==1]&]={}&]]，{n，5}]
