A043561 Number of runs in base-9 representation of n.

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

Offset

0,10

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

Crossrefs

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

Sequence in context: A111626 A297777 A043536 * A297778 A043562 A043537

Adjacent sequences: A043558 A043559 A043560 * A043562 A043563 A043564

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Updated by Clark Kimberling, Feb 04 2018

Status

approved