A020435 - OEIS

%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_