|
%I #14 Jul 11 2021 01:01:50
%S 3217,3313,7237,9209,9466,10249,10765,11521,11785,12442,12757,13709,
%T 13757,14125,15577,16897,19421,19577,19786,19913,21562,22277,22837,
%U 29765,31517,31741,32458,32489,33202,33893,34165,35153,36506,41845,42314,42802
%N Numbers k such that the continued fraction for sqrt(k) has period 75.
%t cf75Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Length[ ContinuedFraction[ s][[2]]]]==75]; Select[Range[43000],cf75Q] (* _Harvey P. Dale_, Apr 17 2020 *)
%Y Cf. A003285.
%K nonn
%O 1,1
%A _David W. Wilson_
|
