A020416 Numbers k such that the continued fraction for sqrt(k) has period 77.

5857, 5861, 6101, 7001, 7141, 7834, 8314, 8429, 8989, 10289, 10789, 11041, 11101, 11482, 11581, 11626, 12377, 13217, 13309, 13997, 14261, 16433, 16949, 17386, 20521, 21178, 21277, 21785, 22013, 22753, 27877, 28493, 28793, 29285, 29333, 29341, 30169

Offset

1,1

Links

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

Mathematica

cf77Q[n_]:=Module[{s=Sqrt[n]}, !IntegerQ[s]&&Length[ContinuedFraction[s][[2]]]==77]; Select[Range[31000], cf77Q] (* Harvey P. Dale, Aug 04 2013 *)

Crossrefs

Sequence in context: A031830 A297660 A219008 * A345185 A345187 A345188

Adjacent sequences: A020413 A020414 A020415 * A020417 A020418 A020419

Keyword

nonn

Author

David W. Wilson

Status

approved