%I #12 Apr 23 2015 13:37:43

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

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

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

%N Decimal expansion of the second smallest negative real root of the equation Gamma(x) = -1 (negated).

%H Philippe Flajolet, Stefan Gerhold and Bruno Salvy, <a href="http://www.combinatorics.org/ojs/index.php/eljc/article/view/v17i1r3">Lindelöf Representations and (Non-)Holonomic Sequences</a>, Electronic Journal of Combinatorics, vol 17(1):R3, 2010, p. 10.

%H Eric Weisstein's MathWorld, <a href="http://mathworld.wolfram.com/GammaFunction.html">Gamma Function</a>

%F -3 < A257434 = -2.747682... < A175474 = -2.61072... < A257433 = -2.457024... < -2.

%e -2.747682646727412601391488482691499695861639395132355512...

%t x2 = x /. FindRoot[Gamma[x] == -1, {x, -8/3}, WorkingPrecision -> 101]; RealDigits[x2] // First

%Y Cf. A175474, A257433.

%K nonn,cons,easy

%O 1,1

%A _Jean-François Alcover_, Apr 23 2015