A114865 - OEIS

%I #8 Aug 15 2015 09:52:44

%S 3,5,3,0,9,7,2,8,2,9,0,1,6,6,0,7,4,3,7,7,0,4,2,4,4,4,8,7,9,8,6,4,5,9,

%T 8,1,5,4,0,7,2,0,8,1,7,9,0,9,0,7,4,1,8,7,3,8,5,9,0,2,8,0,2,4,7,0,0,7,

%U 6,0,9,2,2,2,2,0,9,0,1,7,2,4,2,6,2,8,7,4,0,4,9,0,5,6,6,9,4,9,9,7,9,3

%N Decimal expansion of value of unique local maximum of the Riemann-Siegel theta function.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Riemann-SiegelFunctions.html">Riemann-Siegel Functions</a>

%e 3.53097282...

%t t0 = t /. FindRoot[ RiemannSiegelTheta'[t] == 0, {t, -6}, WorkingPrecision -> 110]; RealDigits[ RiemannSiegelTheta[t0], 10, 102] // First (* _Jean-François Alcover_, Feb 08 2013 *)

%Y Cf. A114866.

%K nonn,cons

%O 1,1

%A _Eric W. Weisstein_, Jan 02 2006