OFFSET
1,5
FORMULA
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 && Mod[Det[ToAdjacencyMatrix[lg[[ # ]]]], 2] == 0 &]]]]; k
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Tanya Khovanova, Aug 29 2008
EXTENSIONS
a(8)-a(10) from Andrew Howroyd, Nov 04 2017
a(11) from A109717 added by Max Alekseyev, Feb 20 2024
STATUS
approved