Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Feb 02 2022 11:38:56
%S 613,937,1033,1114,1693,2785,3274,3373,3461,3593,3802,3946,4397,4589,
%T 4709,4813,4817,5242,5281,6997,7345,7837,7937,8266,8713,9818,9901,
%U 9941,10229,10330,11729,11789,12077,12130,12517,12842,12970,13165,13322,14138
%N Numbers k such that the continued fraction for sqrt(k) has period 33.
%t cf33Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Length[ ContinuedFraction[ s][[2]]]]==33]; Select[Range[15000],cf33Q] (* _Harvey P. Dale_, Feb 02 2022 *)
%K nonn
%O 1,1
%A _David W. Wilson_