%I #11 Nov 18 2023 19:31:55
%S 6,8,9,10,11,12,13,15,16,17,18,19,20,22,23,24,25,26,27,29,30,31,32,33,
%T 34,36,42,44,45,46,47,50,57,64,71,72,79,84,85,87,88,89,93,100,107,108,
%U 115,122,126,127,128,130,131,136,143,144,151
%N Numbers whose base-6 representation has exactly 2 runs.
%t Select[Range[200],Length[Split[IntegerDigits[#,6]]]==2&] (* _Harvey P. Dale_, Nov 18 2023 *)
%Y Cf. A007092.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|