This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A103553 #17 May 04 2023 02:35:48 %S A103553 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 A103553 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 A103553 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 A103553 Decimal expansion of solution to x*8^x = 1. %F A103553 x*8^x = 1. %F A103553 x = (1/8)^(1/8)^(1/8)^... = LambertW(log(8))/log(8). - _Alois P. Heinz_, Oct 25 2016 %e A103553 0.41868621979724841267472248744737790370444567336321... %t A103553 RealDigits[x/.FindRoot[x 8^x==1, {x,.4}, WorkingPrecision->100]][[1]] (* _Harvey P. Dale_, Jan 04 2011 *) %t A103553 RealDigits[ProductLog[Log[8]]/Log[8], 10, 105][[1]] (* _Amiram Eldar_, May 04 2023 *) %Y A103553 Cf. A104748, A103549, A103550, A103551, A103552, A103554, A103555, A103556, A103559, A103560. %K A103553 nonn,cons %O A103553 0,1 %A A103553 _Zak Seidov_, Mar 23 2005 %E A103553 More terms from _Harvey P. Dale_, Jan 04 2011