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

2211, 8840, 19887, 35352, 55235, 79536, 108255, 141392, 178947, 220920, 267311, 318120, 373347, 432992, 497055, 565536, 638435, 715752, 797487, 883640, 974211, 1069200, 1168607, 1272432, 1380675, 1493336, 1610415, 1731912, 1857827, 1988160

Offset

1,1

Links

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

Mathematica

lt47Q[n_]:=Module[{s=Sqrt[n]}, !IntegerQ[s]&&Min[ContinuedFraction[s][[2]]]==47]; Select[Range[2000000], lt47Q] (* Harvey P. Dale, Sep 12 2014 *)

Crossrefs

Sequence in context: A191679 A349098 A238456 * A077693 A253735 A259892

Adjacent sequences: A031722 A031723 A031724 * A031726 A031727 A031728

Keyword

nonn

Author

David W. Wilson

Status

approved