Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #14 Jul 11 2021 01:17:41
%S 1201,1933,2017,2437,2953,3037,5189,5657,6353,6865,7793,8237,8513,
%T 8665,10522,10546,10861,10897,11962,12373,14657,15077,15346,15802,
%U 16138,16393,16405,16690,16945,17585,18097,18362,19345,19466,20722,21493,22717,22765
%N Numbers k such that the continued fraction for sqrt(k) has period 51.
%t cfp51Q[n_]:=Module[{s=Sqrt[n]},!IntegerQ[s]&&Length[ContinuedFraction[s][[2]]]==51]; Select[Range[23000],cfp51Q] (* _Harvey P. Dale_, Aug 27 2014 *)
%Y Cf. A003285.
%K nonn
%O 1,1
%A _David W. Wilson_