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
Programs
-
Mathematica
b = 9; s[n_] := Length[Split[IntegerDigits[n, b]]]; Table[s[n], {n, 1, 200}]
Extensions
Updated by Clark Kimberling, Feb 04 2018
Comments