A297773 Number of distinct runs in base-5 digits of n.

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

Offset

1,5

Comments

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

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Example

8^8 in base 5: 1,3,2,4,3,3,3,2,3,3,1; eight runs, of which 6 are distinct, so that a(8^8) = 6.

Mathematica

b = 5; s[n_] := Length[Union[Split[IntegerDigits[n, b]]]]
Table[s[n], {n, 1, 200}]

Crossrefs

Cf. A043557 (number of runs, not necessarily distinct), A297770, A043532.

Sequence in context: A080462 A194823 A098396 * A043532 A043557 A055027

Adjacent sequences: A297770 A297771 A297772 * A297774 A297775 A297776

Keyword

nonn,base,easy

Author

Clark Kimberling, Jan 27 2018

Status

approved