This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A257433 #14 Feb 16 2025 08:33:25
%S A257433 2,4,5,7,0,2,4,7,3,8,2,2,0,8,0,0,6,2,3,0,3,9,4,5,4,1,4,7,6,5,1,1,7,9,
%T A257433 5,4,3,2,3,6,5,9,7,9,0,9,0,3,3,7,8,4,4,2,0,9,6,4,7,9,4,4,9,5,2,8,0,6,
%U A257433 1,2,6,3,4,2,6,0,4,9,4,9,6,1,7,0,2,3,7,0,2,9,2,6,5,5,7,2,8,2,0,6,6,1,8,3
%N A257433 Decimal expansion of the smallest negative real root of the equation Gamma(x) = -1 (negated).
%H A257433 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 A257433 Eric Weisstein's MathWorld, <a href="https://mathworld.wolfram.com/GammaFunction.html">Gamma Function</a>
%F A257433 -3 < A257434 = -2.747682... < A175474 = -2.61072... < A257433 = -2.457024... < -2.
%e A257433 -2.45702473822080062303945414765117954323659790903378442...
%t A257433 x1 = x /. FindRoot[Gamma[x] == -1, {x, -5/2}, WorkingPrecision -> 104]; RealDigits[x1] // First
%Y A257433 Cf. A175474, A257434.
%K A257433 nonn,cons,easy
%O A257433 1,1
%A A257433 _Jean-François Alcover_, Apr 23 2015