|
%I #15 Jul 11 2021 07:23:01
%S 1831,1999,2149,2791,3292,4126,4237,4393,4639,4897,5121,5279,5534,
%T 5971,5996,6621,6729,7209,7214,7661,7737,8014,8129,8251,8361,8457,
%U 8577,8674,8812,8817,8947,9356,9376,9469,9541,9753,10063,10113,10487,11157,11229
%N Numbers k such that the continued fraction for sqrt(k) has period 84.
%t cf84Q[n_] := Module[{s = Sqrt[n], c}, c = If[IntegerQ[s], {1}, ContinuedFraction[s][[2]]]; Length[c] == 84]; Select[Range[12000], cf84Q] (* _Harvey P. Dale_, Nov 03 2015 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
