|
%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
|
