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

1157, 4626, 10407, 18500, 28905, 41622, 56651, 73992, 93645, 115610, 139887, 166476, 195377, 226590, 260115, 295952, 334101, 374562, 417335, 462420, 509817, 559526, 611547, 665880, 722525, 781482, 842751, 906332, 972225, 1040430, 1110947

Offset

1,1

Comments

a(n) = 1156n^2 + n for n < 71, but a(71) = 5669230. - Charles R Greathouse IV, Aug 04 2017

Links

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

Mathematica

lt68Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ContinuedFraction[s][[2]]]==68]]; Select[Range[12*10^5], lt68Q] (* Harvey P. Dale, Jun 07 2018 *)

Crossrefs

Sequence in context: A264278 A217279 A204478 * A219148 A031532 A168248

Adjacent sequences: A031743 A031744 A031745 * A031747 A031748 A031749

Keyword

nonn

Author

David W. Wilson

Status

approved