A288454 Chebyshev coefficients of density of states of square lattice.
1, -8, 32, -512, 4608, -73728, 819200, -13107200, 160563200, -2569011200, 33294385152, -532710162432, 7161992183808, -114591874940928, 1580900152246272, -25294402435940352, 355702534255411200, -5691240548086579200, 81223136710964019200, -1299570187375424307200, 18765793505701126995968
Offset: 0
Keywords
Links
- Yen Lee Loh, A general method for calculating lattice Green functions on the branch cut, arXiv:1706.03083 [math-ph], 2017.
Crossrefs
Programs
-
Mathematica
zng[n_] := If[OddQ[n], 0, (1+KroneckerDelta[m]) 2^(2m-1) Binomial[2m, m]^2 HypergeometricPFQ[{-m, -m, -m}, {1-2m,1/2-m}, 1] /. m->n/2]; Table[zng[n], {n,0,50}] Wchain[n_] := If[OddQ[n], 0, Binomial[n, n/2]]; Wsq[n_] := Wchain[n]^2; ank[n_, k_] := SeriesCoefficient[ChebyshevT[n, x], {x, 0, k}]; zng[n_] := Sum[ank[n, k]*4^(n - k)*Wsq[k], {k, 0, n}]; Table[zng[n], {n,0,50}]
Comments