|
|
A137891
|
|
Number of (directed) Hamiltonian paths in the graph join C_n + C_n of two cycles.
|
|
4
|
|
|
2, 24, 720, 13824, 383000, 14804640, 764340024, 50913153536, 4256161751448, 436618291524000, 53955264479804600, 7908071556041000064, 1356709951589099693976, 269380212536429979520928, 61297096735652845698099000, 15847986814197933588682229760
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
This graph is isomorphic to the circulant graph on 2n vertices where u,v are adjacent iff |u-v|=2 or |u-v| is odd. This sequence should not be confused with A268838, the number of Hamiltonian paths in C_n X C_n. The sequence can be computed through an analysis of the partitions of n. (See attached C# code for details). - Andrew Howroyd, Feb 14 2016
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_ { k=1..n } 2*k!*b(n,k)*(k!*b(n,k)+(k-1)!*b(n,k-1)) where b(n,0)=0, b(n,k)=Sum_{ j=1..n-k+1 } j*A130130(j)*A266213(k-1,n-j-k+1) for k>0, n<>2. - Andrew Howroyd, Feb 14 2016
|
|
MATHEMATICA
|
b[n_, k_] := If[k == 0, 0, Sum[j*Min[2, j] * Sum[ Binomial[n - j - k, kk - 1]*Binomial[k - 1, kk]*2^kk, {kk, 0, Min[k - 1, n - j - k + 1]}], {j, 1, n - k + 1}]];
Flatten[{{2, 24}, Table[Sum[2*k!*b[n, k]*(k!*b[n, k] + (k - 1)!*b[n, k - 1]), {k, 1, n}], {n, 3, 20}]}] (* Vaclav Kotesovec, Mar 08 2016, after Andrew Howroyd *)
|
|
CROSSREFS
|
Cf. A268838 (number of directed Hamiltonian paths in the torus grid graph C_n X C_n).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|