A282899 Denominators/48 of the coefficients of the series expansion of the Riemann-Siegel theta function at infinity.

1, 120, 1680, 8960, 25344, 30750720, 53248, 167116800, 1333592064, 2739404800, 72351744, 526720696320, 419430400, 525462405120, 55745722712064, 45268955299840, 141733920768, 3462000479620300800, 2542620639232, 483482750523801600, 284950532966055936

Offset: 1

Author

Mats Granvik and Robert G. Wilson v, Feb 24 2017

Keywords

• nonn
• frac

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.

Crossrefs

Cf. A114721, A282898 (numerators).

Programs

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