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

%I #13 Jul 16 2021 02:40:47

%S 2402,9606,21612,38420,60030,86442,117656,153672,194490,240110,290532,

%T 345756,405782,470610,540240,614672,693906,777942,866780,960420,

%U 1058862,1162106,1270152,1383000,1500650,1623102,1750356,1882412,2019270,2160930

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

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

%t lt98Q[n_]:=Module[{c=Sqrt[n]},!IntegerQ[c]&&Min[ContinuedFraction[c][[2]]] == 98]; Select[Range[2200000],lt98Q] (* _Harvey P. Dale_, Dec 17 2012 *)

%K nonn

%O 1,1

%A _David W. Wilson_