A031814 Period of continued fraction for sqrt(n) contains exactly 46 ones.

1726, 2011, 2566, 2629, 3046, 4006, 4327, 4609, 4873, 4918, 4924, 5179, 5398, 5686, 5769, 6007, 6271, 6316, 6337, 6676, 6691, 6814, 6973, 7027, 7429, 8161, 8251, 8377, 8409, 8542, 8599, 8869, 8977, 9011, 9136, 9304, 9441, 9484, 9993, 10186, 10462

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

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 *)

Crossrefs

Sequence in context: A145648 A035867 A271045 * A020427 A232299 A280841

Adjacent sequences: A031811 A031812 A031813 * A031815 A031816 A031817

Keyword

nonn

Author

David W. Wilson

Status

approved