%I #10 Apr 13 2021 23:11:18
%S 5461,9557,10581,10837,10901,10917,10921,10923,10925,10933,10965,
%T 11093,11605,13653,17749,18773,19029,19093,19109,19113,19115,19117,
%U 19125,19157,19285,19797,20821,21077,21141,21157,21161
%N Numbers whose base-2 representation has exactly 13 runs.
%t Select[Range[22000],Length[Split[IntegerDigits[#,2]]]==13&] (* _Harvey P. Dale_, May 04 2019 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|