|
%I #12 Jul 15 2021 01:50:47
%S 843,3368,7575,13464,21035,30288,41223,53840,68139,84120,101783,
%T 121128,142155,164864,189255,215328,243083,272520,303639,336440,
%U 370923,407088,444935,484464,525675,568568,613143,659400,707339,732795,756960,785055
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 29.
%H Charles R Greathouse IV, <a href="/A031707/b031707.txt">Table of n, a(n) for n = 1..10000</a>
%t cf29Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Min[ContinuedFraction[s][[2]]]]==29]; Select[Range[800000],cf29Q] (* _Harvey P. Dale_, Oct 29 2018 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
