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,1

Links

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

Mathematica

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

Prog

(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

Crossrefs

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

Cf. A043717 (complement).

Sequence in context: A225758 A351866 A043663 * A174214 A072709 A241178

Adjacent sequences: A043700 A043701 A043702 * A043704 A043705 A043706

Keyword

nonn,easy,base

Author

Clark Kimberling

Status

approved