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