login
A020355
Numbers k such that the continued fraction for sqrt(k) has period 16.
0
94, 124, 133, 172, 191, 217, 249, 261, 284, 302, 310, 311, 343, 376, 385, 391, 415, 431, 446, 496, 513, 542, 550, 639, 647, 654, 655, 666, 679, 686, 700, 750, 846, 861, 875, 878, 917, 928, 944, 950, 955, 969, 988, 1014, 1038, 1052, 1058, 1131, 1136, 1143, 1146
OFFSET
1,1
MATHEMATICA
cf16Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Length[ ContinuedFraction[ s] [[2]]]]==16]; Select[Range[1200], cf16Q] (* Harvey P. Dale, Jun 05 2016 *)
CROSSREFS
Sequence in context: A269988 A044974 A257525 * A039551 A100767 A050208
KEYWORD
nonn
STATUS
approved