A020402 Numbers k such that the continued fraction for sqrt(k) has period 63.

1801, 2161, 2281, 2749, 3389, 3457, 3673, 5161, 5381, 5441, 5801, 6277, 6917, 7969, 10489, 11093, 11177, 11185, 12893, 13397, 14954, 16453, 17657, 17770, 18541, 18554, 21509, 22985, 23825, 23873, 24113, 25882, 25909, 26186, 27185, 27785, 28306, 28453

Offset

1,1

Links

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

Mathematica

p63Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 0, Length[ContinuedFraction[s] [[2]]]] == 63]; Select[Range[30000], p63Q] (* Harvey P. Dale, Apr 17 2015 *)

Crossrefs

Cf. A003285.

Sequence in context: A025139 A035767 A107563 * A180685 A222418 A252676

Adjacent sequences: A020399 A020400 A020401 * A020403 A020404 A020405

Keyword

nonn

Author

David W. Wilson

Status

approved