login
Decimal expansion of the root of the equation r*log(r/(1-r))=1.
1

%I #3 Jul 15 2014 08:11:04

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

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

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

%N Decimal expansion of the root of the equation r*log(r/(1-r))=1.

%F Equals 1/(1+LambertW(exp(-1))).

%e 0.78218829428019990122029707592674478018190840396629951687...

%p evalf(solve(r*log(r/(1-r))=1), 100)

%t RealDigits[r/.FindRoot[r*Log[r/(1-r)]==1, {r, 3/4}, WorkingPrecision->250], 10, 200][[1]]

%t RealDigits[1/(1+LambertW[E^(-1)]), 10, 200][[1]]

%Y Cf. A072034, A220359, A237421, A245259.

%K nonn,cons

%O 0,1

%A _Vaclav Kotesovec_, Jul 15 2014