[go: up one dir, main page]

login
A031725
Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 47.
1
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
KEYWORD
nonn
STATUS
approved