The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #16 Mar 30 2012 18:36:00
%S 1,6,9,4,6,0,0,9,2,0,5,0,3,5,5,4,4,7,5,1,4,5,3,7,3,2,6,7,8,8,4,7,9,0,
%T 2,5,6,4,7,3,6,6,8,4,7,6,6,2,9,4,8,1,3,8,7,3,1,4,6,5,2,3,9,2,4,2,7,3,
%U 6,8,8,7,5,0,4,8,1,3,7,6,8,7,3,6,6,6,6,2,1,0,3,3,1,1,1,6,4,8,1,8,2,1,4,0,1
%N Decimal expansion of root of x^(e^x) = (e^x)^x.
%e 1.6946009205035544751453732678847…
%t RealDigits[ FindRoot[x^(E^x) == (E^x)^x, {x, {1, 2} }, WorkingPrecision -> 105] [[1, 2] ]] [[2]]
%K nonn,cons
%O 1,2
%A _Michel Lagneau_, Dec 01 2011