OFFSET
0,3
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..50
Tanya Khovanova, Can Someone Be Straight? [From Tanya Khovanova, Sep 23 2009]
MATHEMATICA
cbs[g_] := Or @@ Map[BipartiteQ, Map[InduceSubgraph[g, # ] &, ConnectedComponents[g]]] Table[Count[Map[cbs, ListGraphs[n]], True], {n, 7}]
(* from Eric W. Weisstein, May 02 2009: *) First do: <<Combinatorica
In[2]:= Table[Count[Graphs[n], _?(Function[g,
Or @@ BipartiteQ /@ (InduceSubgraph[g, # ] & /@
ConnectedComponents[g])])], {n, 8}] // Timing
CROSSREFS
KEYWORD
nonn
AUTHOR
Tanya Khovanova, Feb 21 2009
EXTENSIONS
Incorrect comment deleted by N. J. A. Sloane, Feb 22 2009
Terms from a(8) onwards from Max Alekseyev, Feb 22 2009
Offset corrected by Max Alekseyev, Feb 24 2009
a(8) corrected by W. Edwin Clark, May 02 2009; confirmed by Eric W. Weisstein
Corrected by Max Alekseyev and Vladeta Jovovic, May 02 2009
a(18)-a(20) from Max Alekseyev, Jun 24 2013
STATUS
approved