|
%I #12 Jul 10 2021 19:22:08
%S 94,124,133,172,191,217,249,261,284,302,310,311,343,376,385,391,415,
%T 431,446,496,513,542,550,639,647,654,655,666,679,686,700,750,846,861,
%U 875,878,917,928,944,950,955,969,988,1014,1038,1052,1058,1131,1136,1143,1146
%N Numbers k such that the continued fraction for sqrt(k) has period 16.
%t cf16Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Length[ ContinuedFraction[ s] [[2]]]]==16]; Select[Range[1200],cf16Q] (* _Harvey P. Dale_, Jun 05 2016 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
