login
Number of runs in base-6 representation of n.
2

%I #9 Feb 04 2018 12:35:44

%S 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,

%T 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,

%U 3,3,3,2,2,3,3,3,3,3,3,2,3,3,3,3,2,2,1,2,2,2

%N Number of runs in base-6 representation of n.

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

%t b = 6; s[n_] := Length[Split[IntegerDigits[n, b]]];

%t Table[s[n], {n, 1, 200}]

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

%K nonn,base

%O 0,7

%A _Clark Kimberling_

%E Updated by _Clark Kimberling_, Feb 03 2018