%I
%S 2211,8840,19887,35352,55235,79536,108255,141392,178947,220920,267311,
%T 318120,373347,432992,497055,565536,638435,715752,797487,883640,
%U 974211,1069200,1168607,1272432,1380675,1493336,1610415,1731912,1857827,1988160
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 47.
%H Charles R Greathouse IV, <a href="/A031725/b031725.txt">Table of n, a(n) for n = 1..10000</a>
%t lt47Q[n_]:=Module[{s=Sqrt[n]},!IntegerQ[s]&&Min[ContinuedFraction[s][[2]]]==47]; Select[Range[2000000],lt47Q] (* _Harvey P. Dale_, Sep 12 2014 *)
%K nonn
%O 1,1
%A _David W. Wilson_
