A334179 Number of dimer tilings of a 2*n x 6 Moebius strip.
1, 18, 539, 17753, 603126, 20721019, 714790675, 24693540102, 853526336417, 29507528240963, 1020183543633762, 35272351950083641, 1219535200106522761, 42165342386915661378, 1457865351514568764211, 50405667966576581717969, 1742775306265709714234214, 60256436430143085819341347
Offset: 0
Keywords
Programs
-
Mathematica
a[n_] := 2^n * Sqrt[Resultant[ChebyshevU[2*n, x/2], ChebyshevT[6, I*x/2], x]]; Array[a, 18, 0] (* Amiram Eldar, May 04 2021 *)
-
PARI
{a(n) = sqrtint(4^n*polresultant(polchebyshev(2*n, 2, x/2), polchebyshev(6, 1, I*x/2)))}
Formula
a(n)^2 = 4^n * Resultant(U_{2*n}(x/2), T_{6}(i*x/2)), where T_n(x) is a Chebyshev polynomial of the first kind, U_n(x) is a Chebyshev polynomial of the second kind and i = sqrt(-1).