A031863 Period of continued fraction for sqrt(n) contains exactly 95 ones.

68779, 72619, 85387, 87847, 101767, 104611, 134299, 137083, 139259, 151351, 153103, 153715, 154135, 159727, 168811, 185399, 218079, 243043, 243907, 257819, 285587, 290899, 309563, 315071, 315256, 335031, 352419, 364255, 404171, 432951

Offset

1,1

Links

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

Mathematica

cf95Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], False, Count[ ContinuedFraction[ s][[2]], 1]==95]]; Select[Range[500000], cf95Q] (* Harvey P. Dale, May 22 2014 *)

Crossrefs

Sequence in context: A224426 A031845 A249315 * A213702 A233721 A121107

Adjacent sequences: A031860 A031861 A031862 * A031864 A031865 A031866

Keyword

nonn

Author

David W. Wilson

Status

approved