%I #28 Nov 04 2023 06:31:40
%S 1141,1531,2131,2531,2653,2683,2692,2699,2721,3011,3013,3187,3337,
%T 3494,3539,3641,3734,4213,4401,4507,4531,4541,4547,4593,4654,4693,
%U 4726,4781,4786,4931,5051,5129,5156,5224,5254,5272,5409,5414,5470,5515,5517,5566
%N Numbers k such that the continued fraction for sqrt(k) has period 58.
%H Zak Seidov, <a href="/A020397/b020397.txt">Table of n, a(n) for n = 1..1000</a> (first 600 terms from Vincenzo Librandi)
%t Select[Range[6000],!IntegerQ[Sqrt[#]]&&Length[ContinuedFraction[Sqrt[#]][[2]]]==58&] (* _Harvey P. Dale_, Feb 27 2012 *)
%Y Cf. A003285.
%K nonn
%O 1,1
%A _David W. Wilson_
|