A020421 - OEIS

%I #12 Jul 11 2021 07:23:08

%S 2164,2614,2641,2644,3067,3397,4468,4723,5059,5062,6106,6249,6937,

%T 7021,7291,7499,7654,8243,8434,8516,9206,9307,9361,9561,9569,9694,

%U 9777,10053,10173,10349,10469,10677,11133,11171,11241,11416,11845,11860,11899,12219

%N Numbers k such that the continued fraction for sqrt(k) has period 82.

%t cf82Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],False, Length[ ContinuedFraction[ s][[2]]]==82]]; Select[Range[13000],cf82Q] (* _Harvey P. Dale_, Dec 17 2013 *)

%K nonn

%O 1,1

%A _David W. Wilson_