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 A103549 #18 Feb 16 2025 08:32:56
%S A103549 5,4,7,8,0,8,6,2,1,6,5,4,0,9,7,4,4,6,4,5,0,5,7,5,4,0,8,1,5,1,0,2,1,8,
%T A103549 5,0,3,4,5,9,8,9,3,3,7,7,0,1,4,8,9,0,6,7,2,9,3,7,2,9,4,5,5,0,0,0,7,2,
%U A103549 6,3,5,8,5,9,0,0,0,7,6,8,0,5,0,1,2,6,5,0,6,4,7,6,1,9,0,3,8,1,9,1,9,9,3,1,0
%N A103549 Decimal expansion of solution to x*3^x = 1.
%H A103549 Alois P. Heinz, <a href="/A103549/b103549.txt">Table of n, a(n) for n = 0..10000</a>
%H A103549 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PowerTower.html">Power Tower</a>.
%H A103549 Wikipedia, <a href="https://en.wikipedia.org/wiki/Tetration">Tetration</a>.
%F A103549 x*3^x = 1.
%F A103549 x = (1/3)^(1/3)^(1/3)^... = LambertW(log(3))/log(3). - _Alois P. Heinz_, Dec 03 2014
%e A103549 0.54780862165409744645057540815102185034598933770148...
%p A103549 x:= LambertW(log(3))/log(3):
%p A103549 s:= convert(evalf(x, 140), string):
%p A103549 seq(parse(s[n+2]), n=0..119); # _Alois P. Heinz_, Dec 03 2014
%t A103549 RealDigits[x/.FindRoot[x 3^x==1,{x,.5},WorkingPrecision->120]][[1]] (* _Harvey P. Dale_, May 27 2012 *)
%t A103549 RealDigits[ProductLog[Log[3]]/Log[3], 10, 105][[1]] (* _Amiram Eldar_, May 04 2023 *)
%Y A103549 Cf. A104748, A103550, A103551, A103552, A103553, A103554, A103555, A103556, A103559, A103560.
%K A103549 nonn,cons
%O A103549 0,1
%A A103549 _Zak Seidov_, Mar 23 2005
%E A103549 More terms from _Harvey P. Dale_, May 27 2012