A326204 Number of Hamiltonian labeled n-vertex digraphs (with loops).
0, 2, 4, 120, 19104
Offset: 0
Examples
The a(2) = 4 digraph edge-sets: {12,21} {11,12,21} {12,21,22} {11,12,21,22}
Links
- Wikipedia, Hamiltonian path
Crossrefs
Programs
-
Mathematica
Table[Length[Select[Subsets[Tuples[Range[n],2]],FindHamiltonianCycle[Graph[Range[n],DirectedEdge@@@#]]!={}&]],{n,0,4}] (* Mathematica 8.0+. Warning: Using HamiltonianGraphQ instead of FindHamiltonianCycle returns a(4) = 19200 which is incorrect *)
Comments