|
%I
%S 3483,13928,31335,55704,87035,125328,170583,222800,281979,348120,
%T 421223,501288,588315,682304,783255,891168,1006043,1127880,1256679,
%U 1392440,1535163,1684848,1841495,2005104,2175675,2353208,2537703,2729160,2927579
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 59.
%H Charles R Greathouse IV, <a href="/A031737/b031737.txt">Table of n, a(n) for n = 1..10000</a>
%t lt59Q[n_]:=Module[{sr=Sqrt[n],m},m=If[IntegerQ[sr],1,Min[ ContinuedFraction[ sr][[2]]]];m==59]; Select[Range[3000000],lt59Q] (* _Harvey P. Dale_, Jan 18 2014 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
