login
A044933
Number of runs of even length in the base-2 representation of n.
1
0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 2, 1, 0, 1, 1, 0, 1, 2, 1, 0, 1, 0, 1, 2, 1, 2, 1, 0, 1, 0, 0, 1, 0, 1, 2, 1, 2, 1, 0, 1, 0, 1, 2, 1, 0, 1, 2, 1, 2, 3, 2, 1, 2, 1, 0, 1, 0, 1, 2, 1, 0, 1, 1, 0, 1, 2, 1, 0, 1, 0, 1, 2, 1, 2, 3, 2, 1, 2, 1, 0, 1, 2, 1, 0, 1, 0, 1, 2, 1
OFFSET
1,12
LINKS
MATHEMATICA
Table[Count[Length/@Split[IntegerDigits[n, 2]], _?EvenQ], {n, 100}] (* Harvey P. Dale, Jun 20 2023 *)
CROSSREFS
Sequence in context: A172398 A070107 A299908 * A295343 A025915 A081285
KEYWORD
nonn,base
STATUS
approved