A288456 Chebyshev coefficients of density of states of honeycomb lattice.
1, -3, -15, 141, -1503, 9117, -46959, 2349, 1947969, -26479299, 166125105, -476958771, -7411008159, 122517898461, -1220344831791, 7016585864301, -14334148360575, -334610402172291, 4919241139007601, -42532841711020275, 172482611175249057, 717799148664446493, -24646866746992333551
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
Whon[n_] := If[OddQ[n], 0, Sum[Binomial[n/2, j]^2 Binomial[2 j, j], {j, 0, n/2}]]; ank[n_, k_] := SeriesCoefficient[ChebyshevT[n, x], {x, 0, k}]; zng[n_] := Sum[ank[n, k]*3^(n - k)*Whon[k], {k, 0, n}]; Table[zng[n], {n,0,50}]
Comments