|
%I #14 Jul 11 2021 01:25:00
%S 1801,2161,2281,2749,3389,3457,3673,5161,5381,5441,5801,6277,6917,
%T 7969,10489,11093,11177,11185,12893,13397,14954,16453,17657,17770,
%U 18541,18554,21509,22985,23825,23873,24113,25882,25909,26186,27185,27785,28306,28453
%N Numbers k such that the continued fraction for sqrt(k) has period 63.
%t p63Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],0,Length[ContinuedFraction[s] [[2]]]] == 63]; Select[Range[30000],p63Q] (* _Harvey P. Dale_, Apr 17 2015 *)
%Y Cf. A003285.
%K nonn
%O 1,1
%A _David W. Wilson_
|
