|
%I #14 Dec 26 2017 13:41:27
%S 1,1,1,1,1,1,1,1,2,1,2,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2,2,1,2,2,2,2,
%T 2,2,2,2,2,1,2,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2,
%U 2,1,2,2,2,2,2,2,2,2,2,1,2,2,3,3,3,3,3,3,3,2,1,2,2,2,2,2,2,2,3,2,2,3,3,3,3
%N Number of distinct base-9 digits of n.
%H Antti Karttunen, <a href="/A043536/b043536.txt">Table of n, a(n) for n = 1..66430</a>
%e As 731 = 1*(9^3) + 0*(9^2) + 0*(9^1) + 2*(9^0), it is written in base 9 (A007095) as "1002". There are three kinds of digits present, thus a(731) = 3. - _Antti Karttunen_, Dec 22 2017
%t Table[Count[DigitCount[n,9],+_?(#>0&)],{n,100}] (* _Harvey P. Dale_, Apr 30 2015 *)
%o (PARI) A043536(n) = length(vecsort(digits(n,9),,8)); \\ _Antti Karttunen_, Dec 22 2017
%Y Cf. A007095, A043283, A044931, A044940, A044949.
%K nonn,base
%O 1,9
%A _Clark Kimberling_
%E More terms from _Antti Karttunen_, Dec 22 2017
|
