login
A326350
Number of non-nesting connected simple graphs with vertices {1..n}.
2
1, 0, 1, 4, 23, 157, 1182
OFFSET
0,4
COMMENTS
Two edges {a,b}, {c,d} are nesting if a < c < d < b or c < a < b < d.
MATHEMATICA
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}]], Union@@#==Range[n]&&Length[csm[#]]<=1&&!MatchQ[#, {___, {x_, y_}, ___, {z_, t_}, ___}/; x<z<t<y||z<x<y<t]&]], {n, 0, 5}]
CROSSREFS
The inverse binomial transform is the non-covering case A326351.
Connected simple graphs are A001349.
Connected simple graphs with no crossing or nesting edges are A326294.
Simple graphs without crossing or nesting edges are A326244.
Sequence in context: A374564 A007297 A263843 * A198916 A182969 A263186
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Jun 30 2019
STATUS
approved