A043696 Numbers whose base-7 representation has an even number of runs.

7, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 56, 58, 59, 60, 61, 62, 65, 73, 81, 89, 97, 98, 106, 112, 113, 115, 116, 117, 118, 122, 130

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Programs

Mathematica

Select[Range[200],EvenQ[Length[Split[IntegerDigits[#,7]]]]&] (* Harvey P. Dale, Nov 17 2013 *)