cp's OEIS Frontend

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.

A326331 Number of simple graphs covering the vertices {1..n} whose nesting edges are connected.

This page as a plain text file.
%I A326331 #7 Jun 28 2019 21:14:10
%S A326331 1,0,1,0,1,14,539
%N A326331 Number of simple graphs covering the vertices {1..n} whose nesting edges are connected.
%C A326331 Covering means there are no isolated vertices. Two edges {a,b}, {c,d} are nesting if a < c < d < b or c < a < b < d. A graph has its nesting edges connected if the graph whose vertices are the edges and whose edges are nesting pairs of edges is connected.
%H A326331 Gus Wiseman, <a href="/A326331/a326331.png">The a(5) = 14 simple nesting-connected covering graphs</a>.
%t A326331 nesXQ[stn_]:=MatchQ[stn,{___,{x_,y_},___,{z_,t_},___}/;x<z<t<y||z<x<y<t];
%t A326331 nestcmpts[stn_]:=csm[Union[List/@stn,Select[Subsets[stn,{2}],nesXQ]]];
%t A326331 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]]]]]]]]];
%t A326331 Table[Length[Select[Subsets[Subsets[Range[n],{2}]],Union@@#==Range[n]&&Length[nestcmpts[#]]<=1&]],{n,0,5}]
%Y A326331 The non-covering case is the binomial transform A326330.
%Y A326331 Covering graphs whose crossing edges are connected are A324327.
%Y A326331 Cf. A006125, A007297, A054726, A099947, A117662, A136653, A324328.
%Y A326331 Cf. A326210, A326293, A326335, A326336, A326337, A326338, A326339.
%K A326331 nonn,more
%O A326331 0,6
%A A326331 _Gus Wiseman_, Jun 27 2019