%I#9 2018年11月14日11:30:16

%S 1,1,3,5,10,19,35,60标准

%N连接的图形分区数为2n。

%一个整数分区是连通的，如果它包含一些连通简单图的多个顶点度集，那么它就是图的。

%H Gus Wiseman，<a href=“/A320921/A320921.png”>实现a（6）=19个12的连通图形分区中的每一个的连通简单图</a>

%e a（1）=1到a（6）=19个相连的图形分区：

%e（11）（211）（222）（2222）（3322）（33.33）

%e（2211）（3221）（22222）（33222）

%e（3111）（22211）（32221）（33321）

%e（32111）（33211）（42222）

%e（41111）（42211）（43221）

%e（222211）（222222）

%e（322111）（322221）

%e（331111）（332211）

%e（421111）（333111）

%e（511111）（422211）

%e（432111）

%e（522111）

%e（2222211）

%e（3222111）

%e（3321111）

%e（4221111）

%e（4311111）

%e（5211111）

%e（6111111）

%t prptns[m_]：=并集[Sort/@If[Length[m]==0，{{}}，联接@@表[Prepend[#，m[[ipr]]]&/@prptns[删除[m，列表/@ipr]]，{ipr，选择[Prepend[{#}，1]&/@选择[Range[2，Length[m]]，m[#]>m[[#-1]]&]，不命名Q@@m[#]&]}]]]；

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

%t 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]]]]]；

%t表格[Length[Select[strnorm[2*n]，Select[prptns[#]，And[UnsameQ@@#，Length[csm[#]]==1]&]=｛｝和]]，｛n，5｝]

%Y参见A000070、A000569、A007717、A025065、A096373、A147878、A209816、A320891、A320911、A320923。

%K nonn，更多

%0、4

%A _Gus Wiseman_，2018年10月24日