A261999 - OEIS

%I #23 Aug 01 2018 20:36:28

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

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

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

%N Decimal expansion of the smallest solution of Gamma(log(x)) = log(Gamma(x)).

%H G. C. Greubel, <a href="/A261999/b261999.txt">Table of n, a(n) for n = 1..5000</a>

%e 3.23943631121155685896104461949836987939725308656592830363918066783694130613...

%t RealDigits[ x /. FindRoot[Gamma[Log[x]] == Log[Gamma[x]], {x, 3}, WorkingPrecision -> 110]][[1]] (* _Michael Somos_, Sep 09 2015 *)

%o (PARI) solve(x=3, 4, log(gamma(x))-gamma(log(x))) \\ _Michel Marcus_, Sep 08 2015

%o (PARI) solve(x=3, 4, gamma(log(x))-lngamma(x)) \\ _Charles R Greathouse IV_, Apr 18 2016

%K nonn,cons,easy

%O 1,1

%A _Devid Ferri_, Sep 08 2015