OFFSET
1,1
MATHEMATICA
ct55Q[n_]:=Module[{c=ContinuedFraction[Sqrt[n]], len}, len=Length[c[[2]]]; OddQ[len]&&Take[c[[2]], {Floor[len/2], Ceiling[len/2]}]=={55, 55}]; cfsqrtn[ upto_]:=Module[{rng=Complement[ Range[upto], Range[Floor[Sqrt[upto]]]^2]}, Select[rng, ct55Q]]; cfsqrtn[740000] (* Harvey P. Dale, Mar 08 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected by Harvey P. Dale, Mar 08 2012
STATUS
approved