A043560 Number of runs in base-8 representation of n.

1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 3, 3, 3, 3, 3, 3, 3, 2, 1, 2, 2, 2, 2, 2, 2, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3

Offset

0,9

Comments

Every positive integers occurs infinitely many times. See A297770 for a guide to related sequences.

Links

Table of n, a(n) for n=0..89.

Mathematica

b = 8; s[n_] := Length[Split[IntegerDigits[n, b]]];
Table[s[n], {n, 1, 200}]

Crossrefs

Cf. A297776 (number of distinct runs), A297770.

Sequence in context: A083165 A297776 A043535 * A276034 A111626 A297777

Adjacent sequences: A043557 A043558 A043559 * A043561 A043562 A043563

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Updated by Clark Kimberling, Feb 04 2018

Status

approved