|
%I #8 Apr 25 2016 12:57:50
%S 1,1,4,5,5,0,6,4,2,8,4,1,0,8,7,4,5,7,0,1,8,3,1,0,7,3,5,2,8,9,0,5,4,9,
%T 1,2,4,2,8,2,3,3,3,4,4,9,0,7,6,5,6,6,3,2,2,7,5,9,3,0,0,0,2,6,0,6,2,5,
%U 4,7,6,2,3,3,0,3,7,6,9,7,0,5,6,0,0,4,1,1,1,6,9,7,8,2,2,8,3,0,2,1,0,6,8,6,9
%N Decimal expansion of solution to x^(13^x) = 13.
%e x = 1.145506428410874570183107352890549124282333449076566322759300026...
%t RealDigits[ FindRoot[x^(13^x) == 13, {x, 1}, WorkingPrecision -> 2^7] [[1, 2]]][[1]] (* _Robert G. Wilson v_, Mar 26 2005 *)
%o (PARI) solve(x=1,2,x^13^x-13) \\ _Charles R Greathouse IV_, Apr 25 2016
%Y Cf. A104750, A104751, A104752, A104753, A104754, A104755, A104756, A104757, A104758, A104759, A104760, A104761.
%K nonn,cons
%O 1,3
%A _Zak Seidov_, Mar 23 2005
%E More terms from _Robert G. Wilson v_, Mar 26 2005
|
