login
A282899
Denominators/48 of the coefficients of the series expansion of the Riemann-Siegel theta function at infinity.
3
1, 120, 1680, 8960, 25344, 30750720, 53248, 167116800, 1333592064, 2739404800, 72351744, 526720696320, 419430400, 525462405120, 55745722712064, 45268955299840, 141733920768, 3462000479620300800, 2542620639232, 483482750523801600, 284950532966055936
OFFSET
1,2
COMMENTS
See "RiemannSiegelTheta" in the help file of Mathematica, Series expansion at infinity.
LINKS
Eric Weisstein's World of Mathematics, Riemann-Siegel Functions.
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
Cf. A114721, A282898 (numerators).
Sequence in context: A183597 A027795 A223427 * A340580 A376375 A053567
KEYWORD
nonn,frac
AUTHOR
STATUS
approved