|
%I #14 Jul 11 2021 01:13:33
%S 1117,1657,2965,3209,3385,3418,3449,3917,3985,4306,4537,4721,5594,
%T 5717,5897,6817,7978,8458,8917,9125,9437,10685,11441,12074,12634,
%U 12805,13498,14866,15101,15413,15482,16106,16525,16565,16570,18149,18233,18394,18925
%N Numbers k such that the continued fraction for sqrt(k) has period 41.
%t cfp41Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Length[ ContinuedFraction[s][[2]]]]==41]; Select[Range[20000],cfp41Q] (* _Harvey P. Dale_, Jan 28 2017 *)
%Y Cf. A003285.
%K nonn
%O 1,1
%A _David W. Wilson_
|
