A031851 Period of continued fraction for sqrt(n) contains exactly 83 ones.

45151, 64375, 77059, 95371, 103375, 105403, 111619, 135679, 165911, 178003, 206579, 208079, 220183, 226255, 235279, 237771, 242719, 245311, 245699, 259319, 263887, 267448, 295399, 295447, 306448, 308339, 309283, 320379, 320407, 332279

Offset

1,1

Links

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

Mathematica

cf83Q[n_]:=Module[{s=Sqrt[n]}, !IntegerQ[s]&&Count[ContinuedFraction[s][[2]], 1]==83]; Select[Range[350000], cf83Q] (* Harvey P. Dale, Dec 31 2013 *)

Crossrefs

Sequence in context: A295467 A158931 A162894 * A185927 A287378 A163816

Adjacent sequences: A031848 A031849 A031850 * A031852 A031853 A031854

Keyword

nonn

Author

David W. Wilson

Status

approved