STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
proposed
approved
editing
proposed
terms = 77; digits = terms+10; xv = x /. FindRoot[x^(x^2) - 2x == 0, {x, 1/2}, WorkingPrecision -> digits]; ContinuedFraction[xv, terms] (* Jean-François Alcover, Mar 24 2017 *)
approved
editing
editing
approved
with (numtheory):
xv:= fsolve (f(x)=g(x), x=0..0.99):
cfrac (evalf (xv), 120, 'quotients')[];
approved
editing
_Alois P. Heinz (heinz(AT)hs-heilbronn.de), _, Nov 11 2011