|
%I #12 Jul 11 2021 07:22:52
%S 3049,3769,7261,8053,8485,8746,13553,15233,17785,19226,19585,20029,
%T 20149,20897,20921,21929,22037,22585,25681,26977,29497,31069,31253,
%U 32666,33113,33874,36473,38245,38393,38861,40193,41333,42202,42829,43117,44845,45098
%N Numbers k such that the continued fraction for sqrt(k) has period 87.
%t cf87Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Length[ ContinuedFraction[ s][[2]]]]==87]; Select[Range[46000],cf87Q] (* _Harvey P. Dale_, Jun 04 2019 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
