%I #15 Aug 12 2025 02:38:52

%S 1726,2011,2566,2629,3046,4006,4327,4609,4873,4918,4924,5179,5398,

%T 5686,5769,6007,6271,6316,6337,6676,6691,6814,6973,7027,7429,8161,

%U 8251,8377,8409,8542,8599,8869,8977,9011,9136,9304,9441,9484,9993,10186,10462

%N Numbers k such that the period of the continued fraction for sqrt(k) contains exactly 46 ones.

%H Amiram Eldar, <a href="/A031814/b031814.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)

%t cf46Q[n_]:=Module[{sr=Sqrt[n]},If[IntegerQ[sr],1,Count[ ContinuedFraction[ sr][[2]],1]]==46]; Select[Range[11000],cf46Q] (* _Harvey P. Dale_, Mar 07 2014 *)

%K nonn

%O 1,1

%A _David W. Wilson_