%I #15 Jul 15 2021 01:52:05
%S 442,1766,3972,7060,11030,15882,21616,28232,35730,44110,53372,63516,
%T 74542,86450,99240,112912,127466,142902,159220,176420,194502,213466,
%U 233312,254040,275650,298142,321516,345772,370910,396930,423832,451616,480282,509830,540260,571572,603766,636842,670800,705640,741362,777966,815452,853820,855668
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 42.
%H Charles R Greathouse IV, <a href="/A031720/b031720.txt">Table of n, a(n) for n = 1..10000</a>
%t lt42Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Min[ContinuedFraction[s] [[2]]]] == 42]; Select[Range[452000],lt42Q] (* _Harvey P. Dale_, Jun 20 2017 *)
%K nonn
%O 1,1
%A _David W. Wilson_
%E a(33)-a(45) from _Charles R Greathouse IV_, Aug 04 2017
|