OFFSET
0,5
COMMENTS
Also simple graphs containing a crossing pair of edges, where two edges {a,b}, {c,d} are crossing if a < c < b < d or c < a < d < b.
Also simple graphs such that, if the edges are listed in lexicographic order, their maxima (seconds) are not weakly increasing.
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..50
EXAMPLE
The a(4) = 16 nesting edge-sets:
{14,23}
{12,14,23}
{13,14,23}
{14,23,24}
{14,23,34}
{12,13,14,23}
{12,14,23,24}
{12,14,23,34}
{13,14,23,24}
{13,14,23,34}
{14,23,24,34}
{12,13,14,23,24}
{12,13,14,23,34}
{12,14,23,24,34}
{13,14,23,24,34}
{12,13,14,23,24,34}
The a(4) = 16 crossing edge-sets:
{13,24}
{12,13,24}
{13,14,24}
{13,23,24}
{13,24,34}
{12,13,14,24}
{12,13,23,24}
{12,13,24,34}
{13,14,23,24}
{13,14,24,34}
{13,23,24,34}
{12,13,14,23,24}
{12,13,14,24,34}
{12,13,23,24,34}
{13,14,23,24,34}
{12,13,14,23,24,34}
MATHEMATICA
Table[Length[Select[Subsets[Subsets[Range[n], {2}]], !OrderedQ[Last/@#]&]], {n, 0, 5}]
PROG
(PARI) seq(n)={my(p=1 + 3/2*x - x^2 - x/2*sqrt(1 - 12*x + 4*x^2 + O(x^n))); concat([0], vector(n, k, 2^binomial(k, 2)-polcoef(p, k)))} \\ Andrew Howroyd, Aug 26 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 19 2019
EXTENSIONS
Terms a(7) and beyond from Andrew Howroyd, Aug 26 2019
STATUS
approved