A031854 - OEIS

%I #7 Aug 01 2022 13:55:53

%S 7606,8269,8941,9619,9811,10021,11251,11404,14629,15261,15292,15649,

%T 16894,17047,17497,17659,18313,18789,19156,19387,19582,19606,19837,

%U 20092,20509,20641,21553,22303,22521,22567,22609,23251,24121,24406,24686,24913

%N Period of continued fraction for sqrt(n) contains exactly 86 ones.

%t cf86Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[s][[2]],1]] == 86]; Select[Range[25000],cf86Q] (* _Harvey P. Dale_, Aug 01 2022 *)

%K nonn

%O 1,1

%A _David W. Wilson_