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 A104752 #14 May 04 2023 02:34:19
%S A104752 1,2,6,9,4,1,5,4,0,7,3,0,9,7,9,2,2,7,9,9,8,6,4,1,9,9,0,9,6,1,3,6,7,7,
%T A104752 7,9,2,6,2,4,2,1,4,2,1,9,9,0,2,3,4,7,6,2,5,4,7,6,6,3,8,5,7,6,1,9,3,6,
%U A104752 1,6,0,7,9,0,4,4,7,4,1,5,3,8,1,8,7,5,4,7,0,2,3,1,1,5,4,1,8,4,3,6,7,7,2,1,7
%N A104752 Decimal expansion of solution to x^(4^x) = 4.
%e A104752 1.26941540730979227998641990961367779262421421990234...
%p A104752 Digits := 120 ; x := 1.2694 ; for i from 1 to 400 do x := 2^(2^(1-2*x)) ; print(x) ; od: read("transforms3") ; CONSTTOLIST(x) ; # _R. J. Mathar_, May 19 2009
%t A104752 RealDigits[x /. FindRoot[x^(4^x) == 4, {x, 1}, WorkingPrecision -> 120]][[1]] (* _Amiram Eldar_, May 04 2023 *)
%o A104752 (PARI) solve(x=1,2,x^4^x-4) \\ _Charles R Greathouse IV_, Jun 08 2015
%Y A104752 Cf. A103561, A104750, A104751, A104753, A104754, A104755, A104756, A104757.
%K A104752 cons,nonn
%O A104752 1,2
%A A104752 _Zak Seidov_, Mar 23 2005
%E A104752 More digits from _R. J. Mathar_, May 19 2009