%I #8 Jan 25 2015 02:47:21
%S 1,4,0,7,5,7,9,8,1,4,4,5,8,8,1,0,0,0,4,8,7,3,2,1,0,1,8,8,3,1,5,3,1,8,
%T 6,8,1,0,0,5,6,6,6,3,9,6,3,9,2,7,0,5,1,0,6,7,8,6,7,2,6,6,8,0,3,1,0,1,
%U 0,3,8,0,7,3,3,2,6,5,8,9,2,2,3,1,2,0,5,7,6,3,6,3,2,3,0,5,2,4,2,4,4,2,1,7,1
%N Decimal expansion of the solution to x^x = Phi (A001622, the Golden Ratio).
%e x = 1.40757981445881000487...
%t x=GoldenRatio; RealDigits[Log[x]/ProductLog[Log[x]],10,6! ][[1]] (* _Vladimir Joseph Stephan Orlovsky_, Feb 11 2010 *)
%o (PARI) solve(x=1,2,x^x-(1+sqrt(5))/2)
%Y Cf. A001622, A030797.
%K cons,nonn
%O 1,2
%A _Rick L. Shepherd_, Sep 29 2007
|