A326220 Number of non-Hamiltonian labeled n-vertex digraphs (with loops).
1, 0, 12, 392, 46432, 20023232, 30595305216
Offset: 0
Examples
The a(2) = 12 digraph edge-sets: {} {11} {11,12} {11,12,22} {12} {11,21} {11,21,22} {21} {11,22} {22} {12,22} {21,22}
Links
- Wikipedia, Hamiltonian path
Crossrefs
Programs
-
Mathematica
Table[Length[Select[Subsets[Tuples[Range[n],2]],FindHamiltonianCycle[Graph[Range[n],DirectedEdge@@@#]]=={}&]],{n,4}] (* Mathematica 8.0+. Warning: Using HamiltonianGraphQ instead of FindHamiltonianCycle returns a(4) = 46336 which is incorrect *)
Extensions
a(5)-a(6) from Bert Dobbelaere, Jun 11 2024
Comments