A326219 Number of labeled n-vertex Hamiltonian digraphs (without loops).
0, 1, 1, 15, 1194
Offset: 0
Examples
The a(3) = 15 edge-sets: {12,23,31} {12,13,21,32} {12,13,21,23,31} {12,13,21,23,31,32} {13,21,32} {12,13,23,31} {12,13,21,23,32} {12,21,23,31} {12,13,21,31,32} {12,23,31,32} {12,13,23,31,32} {13,21,23,32} {12,21,23,31,32} {13,21,31,32} {13,21,23,31,32}
Links
- Wikipedia, Hamiltonian path
Crossrefs
Programs
-
Mathematica
Table[Length[Select[Subsets[Select[Tuples[Range[n],2],UnsameQ@@#&]],FindHamiltonianCycle[Graph[Range[n],DirectedEdge@@@#]]!={}&]],{n,0,4}] (* Mathematica 8.0+. Warning: Using HamiltonianGraphQ instead of FindHamiltonianCycle returns a(4) = 1200 which is incorrect *)
Comments