OFFSET
1,4
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 &]]]]; k
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Tanya Khovanova, Aug 17 2008
EXTENSIONS
Terms a(8)-a(10) from Steve Butler, Jun 21 2013
Term a(11) from Steve Butler, Aug 21 2013
STATUS
approved