A031862 - OEIS

%I #7 May 01 2018 17:20:39

%S 11551,12601,13399,14254,14284,14323,14779,15331,16108,17029,17044,

%T 17254,17281,18001,18841,19237,19324,19531,19801,19969,19993,20431,

%U 20701,20929,21382,21859,21916,22309,22702,22756,23371,24007,24799,25849,26833,27814

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

%t cf94Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ ContinuedFraction[ s][[2]],1]]==94]; Select[Range[28000],cf94Q] (* _Harvey P. Dale_, May 01 2018 *)

%K nonn

%O 1,1

%A _David W. Wilson_