|
%I #10 Aug 27 2015 10:57:31
%S 7,6,8,7,7,8,8,3,2,5,0,3,1,6,2,6,0,3,7,4,4,0,0,9,8,8,9,1,8,4,3,7,0,4,
%T 9,5,3,6,8,3,8,2,1,7,9,7,8,8,2,6,4,3,3,5,9,4,0,8,4,8,6,9,9,9,1,2,5,9,
%U 7,9,4,3,4,9,4,1,7,2,7,7,6,5,6,1,3,9,0,1,9,8,2,9,5,3,2,8,1,5,8,3,1,5,7,8,7,9
%N Decimal expansion of the [negated] abscissa of the Gamma function local minimum in the interval [-8,-7].
%H Eric Weisstein's MathWorld, <a href="http://mathworld.wolfram.com/GammaFunction.html">Gamma Function</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Particular_values_of_the_Gamma_function">Particular values of the Gamma Function</a>
%F Solution to PolyGamma(x) = 0 in the interval [-8,-7].
%e Gamma(-7.6877883250316260374400988918437049536838217978826433594...)
%e = 0.0001818784449094041881014174426244626530404358160668...
%t digits = 106; x0 = x /. FindRoot[PolyGamma[0, x] == 0, {x, -15/2}, WorkingPrecision -> digits + 5]; RealDigits[x0, 10, digits] // First
%Y Cf. A030169, A030171, A175472, A175473, A256681-A256684, A256686, A256687.
%K nonn,cons
%O 1,1
%A _Jean-François Alcover_, Apr 08 2015
|
