|
%I #8 Jun 07 2012 08:15:31
%S 2,3,1,7,0,2,8,2,7,0,1,2,4,6,3,0,9,2,7,8,9,9,6,6,4,3,5,3,8,3,0,1,5,3,
%T 2,0,5,1,7,4,7,0,9,8,3,2,6,8,4,1,6,4,6,9,7,0,8,3,0,0,8,8,5,1,9,0,2,2,
%U 9,6,6,0,3,1,9,9,3,6,0,9,3,9,0,3,3,1,0,5,7,7,4,8,3,4,4,6,3,9,1,6,0,4
%N Decimal expansion of first Gram point.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/GramPoint.html">Gram Point</a>
%e 23.1702827...
%t First[ RealDigits[t /. FindRoot[ RiemannSiegelTheta[t] == Pi, {t, 23}, WorkingPrecision -> 120], 10, 102]] (* _Jean-François Alcover_, Jun 07 2012 *)
%Y Cf. A114856, A114857.
%K nonn,cons
%O 2,1
%A _Eric W. Weisstein_, Jan 02 2006
|
