login
Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 29.
1

%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_