A326330 Number of simple graphs with vertices {1..n} whose nesting edges are connected.
1, 1, 2, 4, 8, 30, 654
Offset: 0
Links
- Gus Wiseman, The a(5) = 30 nesting-connected simple graphs.
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
The a(4) = 35 edge-sets: {} {12} {12,13} {12,13,14} {12,13,14,34} {13} {12,14} {12,13,23} {12,13,23,34} {14} {12,23} {12,13,34} {12,14,24,34} {23} {12,24} {12,14,24} {12,23,24,34} {24} {13,14} {12,14,34} {34} {13,23} {12,23,24} {13,34} {12,23,34} {14,24} {12,24,34} {14,34} {13,14,34} {23,24} {13,23,34} {23,34} {14,24,34} {24,34} {23,24,34}
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]]; Table[Length[Select[Subsets[Subsets[Range[n],{2}]],Length[csm[#]]<=1&&!MatchQ[#,{_,{x_,y_},_,{z_,t_},_}/;x
The a(5) = 11 edge-sets: {13,14,25} {13,24,25} {13,24,35} {14,24,35} {14,25,35} {13,14,24,25} {13,14,24,35} {13,14,25,35} {13,24,25,35} {14,24,25,35} {13,14,24,25,35}
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}]],Union@@#==Range[n]&&!nesXQ[#]&&Length[csm[Union[Subsets[#,{1}],Select[Subsets[#,{2}],croXQ]]]]<=1&]],{n,0,5}]
Comments