A043716 Numbers whose base-13 representation has an odd number of runs.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 28, 42, 56, 70, 84, 98, 112, 126, 140, 154, 168, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 183, 195, 196, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210
Offset: 1
Programs
-
Mathematica
Select[Range[250],OddQ[Length[Split[IntegerDigits[#,13]]]]&] (* Harvey P. Dale, Jan 31 2016 *)