login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Decimal expansion of solution to x*8^x = 1.
5

%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