%I #14 Feb 28 2023 13:50:47
%S 2851,4051,4449,4873,5284,6388,6517,6526,6659,6859,6973,7243,7702,
%T 7771,8261,8486,8614,8966,9226,9862,10519,10809,11081,11477,11876,
%U 12164,12881,12904,12910,13479,13531,13859,13861,14646,14799,14804,15014,15310,15940
%N Numbers k such that the continued fraction for sqrt(k) has period 90.
%t cf90Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Length[ContinuedFraction[s][[2]]]] == 90]; Select[Range[16000],cf90Q] (* _Harvey P. Dale_, Feb 28 2023 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|