A327354 Number of disconnected or empty antichains of nonempty subsets of {1..n} (non-spanning edge-connectivity 0).
1, 1, 2, 8, 53, 747, 45156, 54804920, 19317457655317
Offset: 0
Examples
The a(1) = 1 through a(3) = 8 antichains: {} {} {} {{1},{2}} {{1},{2}} {{1},{3}} {{2},{3}} {{1},{2,3}} {{2},{1,3}} {{3},{1,2}} {{1},{2},{3}}
Crossrefs
Programs
-
Mathematica
csm[s_]:=With[{c=Select[Subsets[Range[Length[s]],{2}],Length[Intersection@@s[[#]]]>0&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]]; stableSets[u_,Q_]:=If[Length[u]==0,{{}},With[{w=First[u]},Join[stableSets[DeleteCases[u,w],Q],Prepend[#,w]&/@stableSets[DeleteCases[u,r_/;r==w||Q[r,w]||Q[w,r]],Q]]]]; Table[Length[Select[stableSets[Subsets[Range[n],{1,n}],SubsetQ],Length[csm[#]]!=1&]],{n,0,4}]
Comments