|
%I #13 Jul 11 2021 07:24:14
%S 2311,2956,3631,3661,4327,5023,5374,5469,5769,6009,6046,7151,7342,
%T 8156,8206,8257,8611,9148,9346,9806,10144,10364,10473,10516,10732,
%U 10798,11134,11503,11950,12271,12273,12364,12521,12799,12814,12897,12934,13354,13579
%N Numbers k such that the continued fraction for sqrt(k) has period 96.
%t p96Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Length[ ContinuedFraction[ s][[2]]]]==96]; Select[Range[14000],p96Q] (* _Harvey P. Dale_, Apr 02 2016 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
