|
%I #6 Jul 11 2014 14:48:38
%S 1,0,7,3,0,5,1,7,8,5,6,8,3,1,0,1,1,5,6,8,1,0,9,5,0,7,4,9,2,7,9,4,5,6,
%T 7,2,8,6,9,4,7,2,4,9,0,3,0,9,5,6,2,9,5,7,6,0,9,0,2,8,0,1,3,7,0,8,5,7,
%U 7,9,7,3,5,1,0,7,3,2,4,0,7,7,6,7,7,2,6,8,6,9,5,5,7,2,1,4,3,0,8,7,9,4,2,3,4
%N Decimal expansion of the local maximum of the Barnes G function in the interval [0,2].
%H Eric Weisstein's MathWorld, <a href="http://mathworld.wolfram.com/BarnesG-Function.html">Barnes G-Function</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Barnes_G-function">Barnes G-function</a>
%F G(x1), with x1 = A245081.
%e 1.0730517856831011568109507492794567286947249030956295760902801370857797351...
%t digits = 105; x1 = x /. FindRoot[3 - 2*x + Log[2*Pi] + 2 *(x-1)*PolyGamma[x-1] == 0, {x, 3/2}, WorkingPrecision -> digits+10]; RealDigits[BarnesG[x1], 10, digits] // First
%Y Cf. A245081, A245083, A245084.
%K nonn,cons,easy
%O 1,3
%A _Jean-François Alcover_, Jul 11 2014
|
