A326293 Number of non-nesting, topologically connected simple graphs with vertices {1..n}.
1, 1, 2, 4, 8, 27, 192, 1750
Offset: 0
Links
Crossrefs
Programs
-
Mathematica
croXQ[eds_]:=MatchQ[eds,{_,{x_,y_},_,{z_,t_},_}/;x
_,{x_,y_},_,{z_,t_},_}/;x 0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]]; Table[Length[Select[Subsets[Subsets[Range[n],{2}]],!nesXQ[#]&&Length[csm[Union[Subsets[#,{1}],Select[Subsets[#,{2}],croXQ]]]]<=1&]],{n,0,5}]
Comments