A020375 Numbers k such that the continued fraction for sqrt(k) has period 36.

478, 556, 652, 958, 1054, 1177, 1273, 1329, 1439, 1511, 1541, 1651, 1660, 1676, 1724, 1738, 1804, 1891, 1990, 2014, 2041, 2076, 2097, 2111, 2126, 2191, 2369, 2383, 2423, 2588, 2686, 2716, 2732, 2769, 2806, 2869, 2927, 3082, 3148, 3166, 3191, 3228, 3269

Offset

1,1

Links

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

Mathematica

cf36Q[n_]:=Module[{s=Sqrt[n]}, Length[If[IntegerQ[s], {1}, ContinuedFraction[s][[2]]]]==36]; Select[Range[3300], cf36Q] (* Harvey P. Dale, Apr 06 2013 *)

Crossrefs

Sequence in context: A227706 A261816 A352265 * A031788 A252543 A235083

Adjacent sequences: A020372 A020373 A020374 * A020376 A020377 A020378

Keyword

nonn

Author

David W. Wilson

Status

approved