A330297 Number of labeled simple graphs covering n vertices with exactly two automorphisms, or with exactly n!/2 graphs obtainable by permuting the vertices.
0, 0, 1, 3, 24, 540, 13320
Offset: 0
Examples
The a(4) = 24 graphs: {12,13,24} {12,13,14,23} {12,13,34} {12,13,14,24} {12,14,23} {12,13,14,34} {12,14,34} {12,13,23,24} {12,23,34} {12,13,23,34} {12,24,34} {12,14,23,24} {13,14,23} {12,14,24,34} {13,14,24} {12,23,24,34} {13,23,24} {13,14,23,34} {13,24,34} {13,14,24,34} {14,23,24} {13,23,24,34} {14,23,34} {14,23,24,34}
Links
Crossrefs
Programs
-
Mathematica
graprms[m_]:=Union[Table[Sort[Sort/@(m/.Rule@@@Table[{p[[i]],i},{i,Length[p]}])],{p,Permutations[Union@@m]}]]; Table[Length[Select[Subsets[Subsets[Range[n],{2}]],Union@@#==Range[n]&&Length[graprms[#]]==n!/2&]],{n,0,5}]
Formula
a(n) = n!/2 * A330346(n).
Comments