A043532 - OEIS

%I #12 Apr 24 2021 21:25:31

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

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

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

%N Number of distinct base-5 digits of n.

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

%Y Cf. A007091.

%K nonn,base

%O 1,5

%A _Clark Kimberling_