|
| |
|
|
A157015
|
|
Number of graphs with n vertices having a bipartite connected component.
|
|
1
| |
|
|
0, 1, 2, 3, 8, 18, 60, 232, 1389, 14174, 291396, 12307993, 1031244083, 166112993730, 50667178220215, 29104660317374991, 31455540471012663839, 64032442292149795841796
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
LINKS
| Can Someone Be Straight? [From Tanya Khovanova (tanyakh(AT)yahoo.com), Sep 23 2009]
|
|
|
FORMULA
| a(n) = A000088(n) - A157016(n)
|
|
|
MATHEMATICA
| cbs[g_] := Or @@ Map[BipartiteQ, Map[InduceSubgraph[g, # ] &, ConnectedComponents[g]]] Table[Count[Map[cbs, ListGraphs[n]], True], {n, 7}]
(From Eric 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
| Sequence in context: A158448 A073192 A113183 * A041205 A002356 A166302
Adjacent sequences: A157012 A157013 A157014 * A157016 A157017 A157018
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Tanya Khovanova (tanyakh(AT)yahoo.com), Feb 21 2009
|
|
|
EXTENSIONS
| Incorrect comment deleted by N. J. A. Sloane, (njas(AT)research.att.com), Feb 22 2009
Terms from a(8) onwards from Max Alekseyev, Feb 22 2009
Offset corrected by Max Alekseyev (maxale(AT)gmail.com), Feb 24 2009
a(8) corrected by Edwin Clark, May 02 2009; confirmed by Eric Weisstein
Corrected by Max Alekseyev and Vladeta Jovovic (vladeta(AT)eunet.yu), May 02 2009
|
| |
|
|
