|
%I #9 May 04 2023 02:35:11
%S 3,9,1,2,9,6,8,3,6,4,7,6,5,7,6,6,8,7,3,6,4,5,3,3,4,6,4,3,3,6,8,6,8,9,
%T 0,9,6,5,2,6,6,7,7,5,4,9,8,1,9,8,7,7,8,3,3,4,4,8,7,2,4,3,0,5,4,5,1,6,
%U 5,2,2,8,9,0,9,8,0,8,6,4,0,1,2,4,8,1,6,3,9,6,1,7,6,6,9,0,4,2,7,1,6,1,1,8,2,4
%N Decimal expansion of solution to x*11^x = 1.
%F x*11^x = 1.
%F x = (1/11)^(1/11)^(1/11)^... = LambertW(log(11))/log(11). - _Alois P. Heinz_, Dec 03 2014
%e 0.39129683647657668736453346433686890965266775498198...
%p x:= LambertW(log(11))/log(11):
%p s:= convert(evalf(x, 140), string):
%p seq(parse(s[n+2]), n=0..123); # _Alois P. Heinz_, Dec 03 2014
%t RealDigits[ProductLog[Log[11]]/Log[11], 10, 105][[1]] (* _Amiram Eldar_, May 04 2023 *)
%Y Cf. A104748, A103549, A103550, A103551, A103552, A103553, A103554, A103555, A103559, A103560.
%K nonn,cons
%O 0,1
%A _Zak Seidov_, Mar 23 2005
%E More terms from _Alois P. Heinz_, Dec 03 2014
|
