A020375 - OEIS

%I #12 Jul 11 2021 07:23:48

%S 478,556,652,958,1054,1177,1273,1329,1439,1511,1541,1651,1660,1676,

%T 1724,1738,1804,1891,1990,2014,2041,2076,2097,2111,2126,2191,2369,

%U 2383,2423,2588,2686,2716,2732,2769,2806,2869,2927,3082,3148,3166,3191,3228,3269

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

%H Harvey P. Dale, <a href="/A020375/b020375.txt">Table of n, a(n) for n = 1..1000</a>

%t cf36Q[n_]:=Module[{s=Sqrt[n]},Length[If[IntegerQ[s],{1},ContinuedFraction[s][[2]]]]==36]; Select[Range[3300],cf36Q] (* _Harvey P. Dale_, Apr 06 2013 *)

%K nonn

%O 1,1

%A _David W. Wilson_