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

1561, 1579, 1621, 1741, 1981, 2371, 2661, 2683, 2719, 2734, 2854, 3292, 3541, 3577, 3613, 3637, 3669, 3754, 3826, 4195, 4219, 4291, 4363, 4391, 4468, 4513, 4957, 5129, 5146, 5161, 5169, 5416, 5479, 5533, 5710, 5861, 5867, 6269, 6313, 6389, 6509, 6542

Offset

1,1

Links

Table of n, a(n) for n=1..42.

Mathematica

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

Crossrefs

Sequence in context: A158773 A259303 A035865 * A280354 A072394 A243528

Adjacent sequences: A031797 A031798 A031799 * A031801 A031802 A031803

Keyword

nonn

Author

David W. Wilson

Status

approved