A031815 Period of continued fraction for sqrt(n) contains exactly 47 ones.

14899, 32731, 37327, 37391, 43279, 44339, 44407, 51883, 55379, 56291, 58879, 66712, 67024, 68391, 72979, 74639, 76859, 86999, 87599, 89183, 92035, 93631, 96091, 102875, 110723, 111655, 111743, 112591, 113211, 116339, 117367, 118279, 122488

Offset

1,1

Links

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

Mathematica

cf47Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==47]; Select[Range[125000], cf47Q] (* Harvey P. Dale, Jan 06 2019 *)

Crossrefs

Sequence in context: A023045 A186901 A185486 * A365257 A235236 A203404

Adjacent sequences: A031812 A031813 A031814 * A031816 A031817 A031818

Keyword

nonn

Author

David W. Wilson

Status

approved