OFFSET
1,5
COMMENTS
Mating graphs are graphs where no two nodes have the same set of neighbors.
Graphs with an invertible adjacency matrix are mating graphs.
MATHEMATICA
k = {}; For[i = 1, i < 8, i++, lg = ListGraphs[i] ; len = Length[lg]; k = Append[k, Length[Select[Range[len], Det[ToAdjacencyMatrix[lg[[ # ]]]] == 0 && Length[Union[ToAdjacencyMatrix[lg[[ # ]]]]] == i &]]]]; k
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Tanya Khovanova, Aug 27 2008
EXTENSIONS
a(8)-a(11) by Shreeyash Gotmare, Aug 28 2017
STATUS
approved