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

7227, 28904, 65031, 115608, 180635, 260112, 354039, 462416, 585243, 722520, 874247, 1040424, 1221051, 1416128, 1625655, 1849632, 2088059, 2340936, 2608263, 2890040, 3186267, 3496944, 3822071, 4161648, 4515675, 4884152, 5267079, 5664456

Offset

1,1

Links

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

Mathematica

lt85Q[n_]:=Module[{sr=Sqrt[n]}, If[IntegerQ[sr], False, Min[ ContinuedFraction[ sr][[2]]]==85]]; Select[Range[5700000], lt85Q] (* Harvey P. Dale, Apr 18 2014 *)

Crossrefs

Sequence in context: A202402 A206469 A031583 * A272160 A093224 A253529

Adjacent sequences: A031760 A031761 A031762 * A031764 A031765 A031766

Keyword

nonn

Author

David W. Wilson

Status

approved