A031847 Period of continued fraction for sqrt(n) contains exactly 79 ones.

23479, 31411, 47875, 70087, 79003, 88183, 127327, 132271, 135991, 168479, 173215, 184747, 194539, 196471, 205771, 208555, 227287, 242008, 256583, 269107, 270751, 283624, 313847, 314375, 316543, 324719, 327611, 343312, 344259, 345119, 353659

Offset

1,1

Links

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

Mathematica

cf79Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ ContinuedFraction[ s][[2]], 1]]==79]; Select[Range[360000], cf79Q] (* Harvey P. Dale, Dec 14 2015 *)

Crossrefs

Sequence in context: A246891 A189656 A204074 * A237528 A234441 A253310

Adjacent sequences: A031844 A031845 A031846 * A031848 A031849 A031850

Keyword

nonn

Author

David W. Wilson

Status

approved