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

4763, 19048, 42855, 76184, 119035, 171408, 233303, 304720, 385659, 476120, 576103, 685608, 804635, 933184, 1071255, 1218848, 1375963, 1542600, 1718759, 1904440, 2099643, 2304368, 2518615, 2742384, 2975675, 3218488, 3470823, 3732680, 4004059

Offset

1,1

Links

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

Mathematica

cf69Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ContinuedFraction[s][[2]]]]==69]; Select[Range[41*10^5], cf69Q] (* Harvey P. Dale, Jul 17 2017 *)

Crossrefs

Sequence in context: A257763 A260293 A031567 * A125949 A237214 A204727

Adjacent sequences: A031744 A031745 A031746 * A031748 A031749 A031750

Keyword

nonn

Author

David W. Wilson

Status

approved