A020374 - OEIS

%I #15 Aug 22 2025 03:50:20

%S 1061,1237,1289,2197,2297,2657,2753,3277,4033,4073,4138,4181,5393,

%T 5834,6373,7241,7577,7753,8186,9298,10081,10217,10834,10853,10858,

%U 11338,12577,12785,14393,17258,17837,18433,18709,19898,20281,20749,20765,20858,21349

%N Numbers k such that the continued fraction for sqrt(k) has period 35.

%H Amiram Eldar, <a href="/A020374/b020374.txt">Table of n, a(n) for n = 1..10000</a>

%t q[k_] := Module[{c = ContinuedFraction[Sqrt[k]]}, Length[c] == 2 && Length[c[[2]]] == 35]; Select[Range[22000], q] (* _Amiram Eldar_, Aug 22 2025 *)

%K nonn

%O 1,1

%A _David W. Wilson_