A043610 Numbers whose base-6 representation has exactly 2 runs.
6, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 36, 42, 44, 45, 46, 47, 50, 57, 64, 71, 72, 79, 84, 85, 87, 88, 89, 93, 100, 107, 108, 115, 122, 126, 127, 128, 130, 131, 136, 143, 144, 151
Offset: 1
Programs
-
Mathematica
Select[Range[200],Length[Split[IntegerDigits[#,6]]]==2&] (* Harvey P. Dale, Nov 18 2023 *)