%I #7 Oct 19 2024 11:28:35

%S 8851,12463,13843,18283,19099,19503,20335,23423,23544,25135,26095,

%T 27451,29032,29747,30619,31603,33043,35639,40211,41144,43739,46883,

%U 47371,48184,51423,52823,58283,61072,62331,62995,65291,65859,69616,72475,75851,77127

%N Period of continued fraction for sqrt(n) contains exactly 29 ones.

%t cf29Q[n_]:=With[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[s][[2]],1]]==29]; Select[Range[78000],cf29Q] (* _Harvey P. Dale_, Oct 19 2024 *)

%K nonn

%O 1,1

%A _David W. Wilson_