|
%I #20 Jul 01 2023 14:34:13
%S 3,5,1,2,8,6,2,4,1,7,2,5,2,3,3,9,3,5,3,9,6,5,4,7,5,2,3,3,2,1,8,4,3,2,
%T 6,5,3,8,3,2,8,3,3,6,6,3,4,0,2,6,4,7,4,2,2,2,5,1,7,8,9,4,5,4,0,9,6,6,
%U 0,0,9,5,7,0,8,2,1,0,3,8,0,7,0,6,7,3,2,9,5,0,1,8,9,4,5,0,1,6,9,7,8,8,4,0,5
%N Decimal expansion of the number x > 1 defined by 2*log(x) = x - 1.
%C There are two solutions to the equation 2*log(x) = x - 1: {1, 3.51286...}.
%C Apart from the leading digit the same as A201890. - _R. J. Mathar_, Jun 05 2013
%F Equals 1 + A201890.
%e x = 3.512862417252339353965475233218432653832833663402647422251789454...
%p Digits := 100; evalf([solve(2*ln(n)=n-1,n)]);
%t RealDigits[x /. FindRoot[2*Log[x] == x - 1, {x, 3.5}, WorkingPrecision -> 110]][[1]]
%o (PARI) solve(x=3,4,2*log(x)-x+1) \\ _Charles R Greathouse IV_, Jun 05 2013
%Y Cf. A201890.
%K nonn,cons
%O 1,1
%A _José María Grau Ribas_, Jun 02 2013
|
