%I #14 May 04 2023 02:34:19
%S 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 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 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 Decimal expansion of solution to x^(4^x) = 4.
%e 1.26941540730979227998641990961367779262421421990234...
%p 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 RealDigits[x /. FindRoot[x^(4^x) == 4, {x, 1}, WorkingPrecision -> 120]][[1]] (* _Amiram Eldar_, May 04 2023 *)
%o (PARI) solve(x=1,2,x^4^x-4) \\ _Charles R Greathouse IV_, Jun 08 2015
%Y Cf. A103561, A104750, A104751, A104753, A104754, A104755, A104756, A104757.
%K cons,nonn
%O 1,2
%A _Zak Seidov_, Mar 23 2005
%E More digits from _R. J. Mathar_, May 19 2009
|