login
A020416
Numbers k such that the continued fraction for sqrt(k) has period 77.
0
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
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
KEYWORD
nonn
STATUS
approved