A043706 Numbers whose base-3 representation has an odd number of runs.
1, 2, 4, 8, 10, 11, 13, 15, 16, 19, 20, 21, 23, 26, 28, 29, 31, 35, 37, 38, 40, 42, 43, 45, 49, 51, 52, 55, 56, 58, 62, 63, 66, 68, 71, 73, 74, 75, 77, 80, 82, 83, 85, 89, 91, 92, 94, 96, 97, 100, 101, 102, 104, 107, 109, 110, 112, 116, 118
Offset: 1
Programs
-
Mathematica
Select[Range[200],OddQ[Length[Split[IntegerDigits[#,3]]]]&] (* Harvey P. Dale, Mar 05 2020 *)