%I #21 Jul 11 2021 01:30:32
%S 2476,2569,2661,2949,3669,3727,3847,4078,4101,4533,4581,5146,5191,
%T 5399,5591,5671,6079,6297,6476,6509,6777,6811,6904,6931,7111,7189,
%U 7264,7454,7583,7781,8143,8213,8231,8263,8284,8659,8921,9175,9313,9354,9655,9692
%N Numbers k such that the continued fraction for sqrt(k) has period 72.
%t upto=10000;Select[Complement[Range[upto],Range[Floor[Sqrt[upto]]]^2], Length[ContinuedFraction[Sqrt[#]][[2]]]==72&] (* _Harvey P. Dale_, Jul 04 2011 *)
%Y Cf. A003285.
%K nonn
%O 1,1
%A _David W. Wilson_
|