A020439 - OEIS

%I #18 Aug 25 2025 02:15:20

%S 2629,3646,4924,5692,5833,5836,6172,6703,6801,7389,7438,8158,8287,

%T 8551,8654,9103,10041,10079,10096,10629,10936,11038,11068,11116,11335,

%U 11383,11519,11824,11863,11995,12016,12044,12494,12751,12811,12895,13372,13569

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

%H Amiram Eldar, <a href="/A020439/b020439.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)

%t nn=15000;With[{nonsq=Complement[Range[nn],Range[ Floor[Sqrt[nn]]]^2]}, Select[ nonsq,Length[ ContinuedFraction[Sqrt[#]][[2]]]==100&]] (* _Harvey P. Dale_, May 22 2012 *)

%Y Cf. A003285.

%K nonn

%O 1,1

%A _David W. Wilson_