OFFSET
1,2
COMMENTS
See "RiemannSiegelTheta" in the help file of Mathematica, Series expansion at infinity.
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..1000
Richard P. Brent, On asymptotic approximations to the log-Gamma and Riemann-Siegel theta functions, arXiv:1609.03682 [math.NA], 2016.
Eric Weisstein's World of Mathematics, Riemann-Siegel Functions.
Wikipedia, Riemann-Siegel theta function.
Wolfram Language and System, RiemannSiegelTheta.
MATHEMATICA
Denominator[ DeleteCases[ CoefficientList[ CoefficientList[ Series[ RiemannSiegelTheta[ t], {t, Infinity, 41}], 1/t^_] + Pi/8 + t/2 + t*Log[2]/2 + t*Log[Pi]/2 + t*Log[1/t]/2, 1/t][[1]], 0]]/48
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Mats Granvik and Robert G. Wilson v, Feb 24 2017
STATUS
approved