OFFSET
0,3
LINKS
D. H. Bailey and J. M. Borwein, Experimental computation as an ontological game changer, 2014. p. 21.
Eric Weisstein's MathWorld, QRS Constant.
FORMULA
c2 = c1 - c1^2 - 30*zeta(-1/2, c1/2)/zeta(3/2, c1/2), where zeta is the generalized Riemann zeta function.
EXAMPLE
-0.104685459433071176262158436583950361566306188422928659240897990324451611646...
MATHEMATICA
digits = 101; c1 = z /. FindRoot[Zeta[1/2, z/2], {z, 1}, WorkingPrecision -> digits+5]; c2 = c1 - c1^2 - 30*Zeta[-1/2, c1/2]/Zeta[3/2, c1/2]; RealDigits[c2, 10, digits] // First
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Jean-François Alcover, Jul 07 2014
STATUS
approved