OFFSET
1,1
MATHEMATICA
cf84Q[n_] := Module[{s = Sqrt[n], c}, c = If[IntegerQ[s], {1}, ContinuedFraction[s][[2]]]; Length[c] == 84]; Select[Range[12000], cf84Q] (* Harvey P. Dale, Nov 03 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved