%I
%S 4549,5737,6217,7529,8009,8849,10477,12013,14593,14785,14897,16193,
%T 17833,18085,18937,18985,19093,19937,20177,21341,22073,22346,23357,
%U 26218,26501,29569,31753,32554,35554,37021,38557,38593,41441,41557,42257,44762,47389
%N Numbers k such that the continued fraction for sqrt(k) has period 93.
%t cf93Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Length[ ContinuedFraction[ s][[2]]]]==93]; Select[Range[50000],cf93Q] (* _Harvey P. Dale_, Jun 25 2017 *)
%K nonn
%O 1,1
%A _David W. Wilson_
