A288455 Chebyshev coefficients of density of states of BCC lattice.
1, -48, 1728, -79872, 4058112, -216956928, 11977752576, -676117610496, 38792847949824, -2253773963526144, 132241430641901568, -7821943674035503104, 465750331610495975424, -27888626411947306254336, 1677958399935741979262976, -101375476324084742212288512, 6146869366762959307806867456
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^(2 m - 1) * Binomial[2m,m]^3 HypergeometricPFQ[{-m,-m,-m,-m}, {1-2m, 1/2-m, 1/2-m}, 1] /. m -> n/2]; Table[zng[n], {n,0,50}] Wchain[n_] := If[OddQ[n], 0, Binomial[n, n/2]]; Wbcc[n_] := Wchain[n]^3; ank[n_, k_] := SeriesCoefficient[ChebyshevT[n, x], {x, 0, k}]; zng[n_] := Sum[ank[n, k]*8^(n-k)*Wbcc[k], {k, 0, n}]; Table[zng[n], {n,0,50}]
Comments