|
%I #23 Jan 15 2022 15:27:09
%S 7,0,8,3,1,5,8,6,4,0,9,0,7,8,5,1,4,6,3,3,0,8,6,2,4,9,2,0,6,2,4,7,2,5,
%T 4,1,9,7,9,4,9,7,1,6,6,1,9,7,6,2,8,9,1,9,1,2,9,3,5,3,9,9,8,3,8,2,6,4,
%U 6,8,4,2,7,7,6,2,4,8,1,0,0,1,9,2,3,3,1,4,4,9,5,2,3,7,8,3,9,0,2,6,2,5,2,3,9
%N The lesser of the two solutions to x - log(x) = e.
%C Companion sequence to A226574.
%C A226574 = 4.1386519474... is the greater one.
%F Equals -LambertW(-exp(-e)).
%e 0.0708315864090785146330862492062472541979...
%t RealDigits[-ProductLog[-E^-E], 10, 100][[1]] (* _Amiram Eldar_, Jan 11 2019 *)
%o (PARI) default(realprecision, 100); solve(x=0.01, 1, x - log(x) - exp(1))
%Y Cf. A226574.
%Y Cf. also A001113, A202348, A226572.
%K nonn,cons
%O -1,1
%A _Jianing Song_, Dec 30 2018
%E Typo in name corrected by _Mark Andreas_, Jan 14 2022
|
