login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers k such that the continued fraction for sqrt(k) has period 33.
0

%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_