A031714 Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 36.

325, 1298, 2919, 5188, 8105, 11670, 15883, 20744, 26253, 32410, 39215, 46668, 54769, 63518, 72915, 82960, 93653, 104994, 116983, 129620, 142905, 156838, 171419, 186648, 202525, 219050, 236223, 254044, 272513, 291630, 311395, 331808, 352869, 374578, 396935, 419940, 443593, 467894, 469262

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

lt36Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ContinuedFraction[s][[2]]]]==36]; Select[Range[360000], lt36Q] (* Harvey P. Dale, Mar 07 2015 *)

Crossrefs

Sequence in context: A158272 A183645 A299708 * A133447 A179535 A145414

Adjacent sequences: A031711 A031712 A031713 * A031715 A031716 A031717

Keyword

nonn

Author

David W. Wilson

Extensions

a(34)-a(39) from Charles R Greathouse IV, Aug 03 2017

Status

approved