A288461 Chebyshev coefficients of density of states of FCC lattice.
1, 0, -120, 192, 11232, -69120, -887808, 11870208, 34721280, -1458585600, 4612792320, 124992552960, -1294622392320, -3918630223872, 170411025235968, -1023380614545408, -11537631123996672, 248923798395420672, -709263007722504192, -30740965743050883072, 367936297318798589952, 1683415347595793399808
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
Wdia[n_] := If[OddQ[n], 0, Sum[Binomial[n/2,j]^2 Binomial[2j,j] Binomial[n-2j, n/2-j], {j, 0, n/2}]]; Wfcc[n_] := Sum[Binomial[n, j] (-4)^(n-j) Wdia[2 j], {j, 0, n}]; ank[n_, k_] := SeriesCoefficient[ChebyshevT[n, x], {x, 0, k}]; zng[n_] := Sum[ank[n, k]*12^(n-k)*Wfcc[k], {k, 0, n}]; Table[zng[n], {n,0,50}]
Comments