|
%I #12 Jul 11 2021 07:24:00
%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 Harvey P. Dale, <a href="/A020439/b020439.txt">Table of n, a(n) for n = 1..1000</a>
%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 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
