|
%I #12 Jul 15 2021 01:52:41
%S 2403,9608,21615,38424,60035,86448,117663,153680,194499,240120,290543,
%T 345768,405795,470624,540255,614688,693923,777960,866799,960440,
%U 1058883,1162128,1270175,1383024,1500675,1623128,1750383,1882440,2019299,2160960
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 49.
%H Charles R Greathouse IV, <a href="/A031727/b031727.txt">Table of n, a(n) for n = 1..10000</a>
%t cf49Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Min[ContinuedFraction[s][[2]]]==49]]; Select[Range[217*10^4],cf49Q] (* _Harvey P. Dale_, Jul 17 2019 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
