login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Period of continued fraction for sqrt(n) contains exactly 32 ones.
0

%I #7 Mar 04 2015 15:12:28

%S 1561,1579,1621,1741,1981,2371,2661,2683,2719,2734,2854,3292,3541,

%T 3577,3613,3637,3669,3754,3826,4195,4219,4291,4363,4391,4468,4513,

%U 4957,5129,5146,5161,5169,5416,5479,5533,5710,5861,5867,6269,6313,6389,6509,6542

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

%t cf32Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[s][[2]],1]]==32]; Select[Range[7000],cf32Q] (* _Harvey P. Dale_, Mar 04 2015 *)

%K nonn

%O 1,1

%A _David W. Wilson_