|
%I #14 Apr 17 2018 09:41:24
%S 2,0,3,8,1,6,9,3,7,9,7,0,2,1,5,0,6,2,1,7,1,0,6,4,8,4,5,9,7,2,8,2,9,5,
%T 5,1,6,2,7,8,7,1,3,9,6,1,8,0,5,2,0,8,0,7,0,0,4,7,0,4,4,5,6,4,3,8,2,8,
%U 7,9,7,1,1,5,2,4,6,5,1,4,7,6,8,6,8,5,7,4,2,7,8,3,1,4,9,6,2,5,8,8,6,6,6,9,4
%N Decimal expansion of constant C associated with the QRS constant.
%H G. C. Greubel, <a href="/A131330/b131330.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/QRSConstant.html">QRS Constant</a>
%e 2.0381693797021506217...
%t digits = 105; c1 = z /. FindRoot[Zeta[1/2, z/2], {z, 1}, WorkingPrecision -> digits+5]; c = 1/4*Zeta[3/2, c1/2]; RealDigits[c, 10, digits] // First (* _Jean-François Alcover_, Apr 07 2015 *)
%o (PARI) zetahurwitz(3/2, solve(x=.3,1,zetahurwitz(1/2,x/2))/2)/4 \\ _Charles R Greathouse IV_, Jan 31 2018
%Y Cf. A131329.
%K nonn,cons
%O 1,1
%A _Eric W. Weisstein_, Jun 28 2007
|
