A341826 - OEIS

%I #26 May 29 2021 04:10:38

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

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

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

%N Decimal expansion of the largest real root of Gamma(x+1) = e.

%C Decimal expansion of the root of Gamma(x+1)/log(Gamma(x+1)) = Gamma(x+1).

%F {x| Gamma(x+1)/log(Gamma(x+1))=Gamma(x+1)}.

%e 2.3124408825391603702...

%t RealDigits[x /. FindRoot[Gamma[x+1] - E, {x, 2}, WorkingPrecision -> 120], 10, 100][[1]] (* _Amiram Eldar_, May 29 2021 *)

%o (PARI) solve(x=2, 3, gamma(x+1)/log(gamma(x+1))-gamma(x+1)) \\ _Michel Marcus_, Feb 21 2021

%o (PARI) solve(x=2, 3, gamma(x+1) - exp(1)) \\ _Michel Marcus_, Feb 21 2021

%Y Cf. A001113.

%K nonn,cons

%O 1,1

%A _Michael P. May_, Feb 20 2021