A020355 Numbers k such that the continued fraction for sqrt(k) has period 16.

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

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

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

Adjacent sequences: A020352 A020353 A020354 * A020356 A020357 A020358

Keyword

nonn

Author

David W. Wilson

Status

approved