A031736 - OEIS

%I #15 Jul 15 2021 01:53:03

%S 842,3366,7572,13460,21030,30282,41216,53832,68130,84110,101772,

%T 121116,142142,164850,189240,215312,243066,272502,303620,336420,

%U 370902,407066,444912,484440,525650,568542,613116,659372,707310,756930,808232,861216

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

%C a(n) = 841n^2 + n for n < 61, but a(61) = 3031140. - _Charles R Greathouse IV_, Aug 04 2017

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

%t cf58Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Min[ContinuedFraction[s][[2]]]]==58]; Select[Range[900000],cf58Q] (* _Harvey P. Dale_, Nov 30 2014 *)

%K nonn

%O 1,1

%A _David W. Wilson_