A020439 Numbers k such that the continued fraction for sqrt(k) has period 100.

2629, 3646, 4924, 5692, 5833, 5836, 6172, 6703, 6801, 7389, 7438, 8158, 8287, 8551, 8654, 9103, 10041, 10079, 10096, 10629, 10936, 11038, 11068, 11116, 11335, 11383, 11519, 11824, 11863, 11995, 12016, 12044, 12494, 12751, 12811, 12895, 13372, 13569

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

nn=15000; With[{nonsq=Complement[Range[nn], Range[ Floor[Sqrt[nn]]]^2]}, Select[ nonsq, Length[ ContinuedFraction[Sqrt[#]][[2]]]==100&]] (* Harvey P. Dale, May 22 2012 *)

Crossrefs

Sequence in context: A221941 A234698 A190936 * A254776 A254769 A254722

Adjacent sequences: A020436 A020437 A020438 * A020440 A020441 A020442

Keyword

nonn

Author

David W. Wilson

Status

approved