A031724 - OEIS

%I #15 Jul 15 2021 01:51:51

%S 530,2118,4764,8468,13230,19050,25928,33864,42858,52910,64020,76188,

%T 89414,103698,119040,135440,152898,171414,190988,211620,233310,256058,

%U 279864,304728,330650,357630,385668,414764,444918,476130,508400,541728

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

%C a(n) = 529n^2 + n for n < 49, but a(49) = 1221072. - _Charles R Greathouse IV_, Aug 04 2017

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

%t lt46Q[n_]:=Module[{s=Sqrt[n]},!IntegerQ[s]&&Min[ContinuedFraction[s][[2]]]==46]; Select[Range[550000],lt46Q] (* _Harvey P. Dale_, Jul 13 2013 *)

%K nonn

%O 1,1

%A _David W. Wilson_