A043558 Number of runs in base-6 representation of n.

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

Offset

0,7

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 = 6; s[n_] := Length[Split[IntegerDigits[n, b]]];
Table[s[n], {n, 1, 200}]

Crossrefs

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

Sequence in context: A096993 A297774 A043533 * A307359 A297775 A043534

Adjacent sequences: A043555 A043556 A043557 * A043559 A043560 A043561

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Updated by Clark Kimberling, Feb 03 2018

Status

approved