A031801 Period of continued fraction for sqrt(n) contains exactly 33 ones.

19519, 20191, 22987, 24839, 27511, 35551, 37211, 41251, 41347, 44511, 44536, 49187, 53519, 54071, 58847, 61795, 62263, 62291, 62879, 68579, 68632, 69751, 70555, 74227, 78883, 81171, 81279, 82575, 83707, 83752, 84527, 87163, 88303, 88479, 91015, 92407

Offset

1,1

Links

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

Mathematica

cf33Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ ContinuedFraction[ s][[2]], 1]]==33]; Select[Range[10^5], cf33Q] (* Harvey P. Dale, Sep 21 2018 *)

Crossrefs

Sequence in context: A322101 A206274 A033869 * A022213 A093219 A184493

Adjacent sequences: A031798 A031799 A031800 * A031802 A031803 A031804

Keyword

nonn

Author

David W. Wilson

Status

approved