%I #15 Jul 10 2021 19:35:12
%S 43,67,86,93,115,116,118,129,154,159,161,162,186,237,242,243,245,246,
%T 259,286,292,297,339,344,345,354,375,403,411,451,452,453,459,464,465,
%U 469,475,490,494,497,515,516,522,532,534,536,543,563,583,591,594,595,598,603,616
%N Numbers k such that the continued fraction for sqrt(k) has period 10.
%H Harvey P. Dale, <a href="/A020349/b020349.txt">Table of n, a(n) for n = 1..1000</a>
%t cf10Q[n_]:=Module[{sr=Sqrt[n]},!IntegerQ[sr]&&Length[ ContinuedFraction[ sr][[2]]]==10]; Select[Range[700],cf10Q] (* _Harvey P. Dale_, Mar 07 2012 *)
%Y Contains A237604.
%K nonn
%O 1,1
%A _David W. Wilson_
|