A043703 Numbers whose base-14 representation has an even number of runs.

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

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• easy
• base

Links

• David A. Corneth, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A299174, A043692, A043693, A043694, A043695, A043696, A043697, A043698, A043700, A043701, A043702, A043703, A043704, A043705.

Cf. A043717 (complement).

Programs

Mathematica

Select[Range[80],EvenQ[Length[Split[IntegerDigits[#,14]]]]&] (* Harvey P. Dale, Aug 30 2020 *)

PARI

is(n) = qstreaks(n)%2 == 0
qstreaks(n, {b = 14}) = {my(d = digits(n, b)); sum(i = 2, #d, d[i]!=d[i-1])+1} \\ David A. Corneth, Aug 31 2020