A043532 Number of distinct 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, 2, 2, 3, 2

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Crossrefs

Cf. A007091.

Programs

Mathematica

f[n_]:=Length[Select[DigitCount[n,5],#!=0&]]; Array[f,100] (* Harvey P. Dale, May 11 2011 *)