OFFSET
1,2
EXAMPLE
f(sqrt(2)) = f([1,2,2,...]) = [1,4,4,...] = -1 + sqrt(5), so a(2) = 5.
MATHEMATICA
$MaxExtraPrecision = Infinity;
c[x_] := c[x] = FromContinuedFraction[ContinuedFraction[x]^2]
Table[c[Sqrt[n]], {n, 1, 30}]
f[y_] := Cases[y, x_^(1/2 | -1/2) :> x, Infinity]
t = Table[f[c[Sqrt[n]]], {n, 1, 80}]; Flatten[ t /. {} -> 1] (* Peter J. C. Moses, Oct 04 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Oct 04 2013
STATUS
approved