|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
See "RiemannSiegelTheta" in the help file of Mathematica, Series expansion at infinity.
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|