A043702 Numbers whose base-13 representation has an even number of runs.

13, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Programs

Mathematica

Select[Range[100],EvenQ[Length[Split[IntegerDigits[#,13]]]]&] (* Harvey P. Dale, Aug 22 2015 *)