OFFSET
1,1
MATHEMATICA
cf45Q[n_]:=Module[{c=Sqrt[n]}, !IntegerQ[c]&&Count[ContinuedFraction[ c] [[2]], 1]==45]; Select[Range[150000], cf45Q] (* Harvey P. Dale, Dec 24 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved