A031717 - OEIS

%I #13 Jul 15 2021 01:51:24

%S 1523,6088,13695,24344,38035,54768,74543,97360,123219,152120,184063,

%T 219048,257075,298144,342255,389408,439603,492840,549119,608440,

%U 670803,736208,804655,876144,950675,1028248,1108863,1192520,1279219,1368960

%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 39.

%H Charles R Greathouse IV, <a href="/A031717/b031717.txt">Table of n, a(n) for n = 1..10000</a>

%t ltcf39Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1, Min[ ContinuedFraction[s] [[2]]]] ==39]; Select[Range[1400000],ltcf39Q] (* _Harvey P. Dale_, Jun 20 2015 *)

%K nonn

%O 1,1

%A _David W. Wilson_