login
A031835
Period of continued fraction for sqrt(n) contains exactly 67 ones.
0
35011, 38191, 51671, 72479, 75763, 79864, 86395, 93991, 105283, 115768, 139855, 152447, 164728, 170704, 171856, 174479, 175195, 176287, 179219, 184507, 197467, 197723, 204179, 211479, 219064, 230231, 239992, 242755, 245391, 279827, 284959
OFFSET
1,1
MATHEMATICA
cf67Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], False, Count[ ContinuedFraction[ s] [[2]], 1]==67]]; Select[Range[300000], cf67Q] (* Harvey P. Dale, Dec 17 2013 *)
CROSSREFS
Sequence in context: A237065 A233631 A281886 * A250525 A251063 A234988
KEYWORD
nonn
STATUS
approved