Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #17 May 04 2023 02:35:48
%S 4,1,8,6,8,6,2,1,9,7,9,7,2,4,8,4,1,2,6,7,4,7,2,2,4,8,7,4,4,7,3,7,7,9,
%T 0,3,7,0,4,4,4,5,6,7,3,3,6,3,2,1,8,6,2,1,4,5,2,1,0,0,2,1,1,8,8,6,3,4,
%U 9,1,7,2,0,5,3,1,4,5,2,0,9,1,0,6,0,6,1,0,1,2,7,9,2,1,5,5,5,4,7,3,9,6,1,2,3
%N Decimal expansion of solution to x*8^x = 1.
%F x*8^x = 1.
%F x = (1/8)^(1/8)^(1/8)^... = LambertW(log(8))/log(8). - _Alois P. Heinz_, Oct 25 2016
%e 0.41868621979724841267472248744737790370444567336321...
%t RealDigits[x/.FindRoot[x 8^x==1, {x,.4}, WorkingPrecision->100]][[1]] (* _Harvey P. Dale_, Jan 04 2011 *)
%t RealDigits[ProductLog[Log[8]]/Log[8], 10, 105][[1]] (* _Amiram Eldar_, May 04 2023 *)
%Y Cf. A104748, A103549, A103550, A103551, A103552, A103554, A103555, A103556, A103559, A103560.
%K nonn,cons
%O 0,1
%A _Zak Seidov_, Mar 23 2005
%E More terms from _Harvey P. Dale_, Jan 04 2011