%I #11 Apr 13 2021 23:10:37
%S 170,298,330,338,340,341,342,346,362,426,554,586,594,596,597,598,602,
%T 618,650,658,660,661,662,666,674,676,677,678,680,681,683,684,685,686,
%U 690,692,693,694,698,714,722,724,725,726,730
%N a(n) = (s(n)-1)/2, where s(n) is the n-th number whose base-2 representation has exactly 9 runs.
%H Vincenzo Librandi, <a href="/A043690/b043690.txt">Table of n, a(n) for n = 1..1000</a>
%t (# - 1)/2&/@Select[Range[50], Length[Split[IntegerDigits[#, 2]]]==9&] (* _Vincenzo Librandi_, Feb 22 2014 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|