A043697 Numbers whose base-8 representation has an even number of runs.

8, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 64, 72, 74, 75, 76, 77, 78, 79, 82, 91, 100, 109, 118, 127, 128, 137, 144, 145

Offset

1,1

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Mathematica

A043697Q[k_] := EvenQ[Length[Split[IntegerDigits[k, 8]]]];
Select[Range[200], A043697Q] (* Paolo Xausa, Oct 27 2025 *)

Crossrefs

Cf. A007094.

Sequence in context: A107032 A031953 A043624 * A043425 A084663 A242857

Adjacent sequences: A043694 A043695 A043696 * A043698 A043699 A043700

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Paolo Xausa, Oct 27 2025

Status

approved