A043536 Number of distinct base-9 digits of n.

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

Offset

1,9

Links

Antti Karttunen, Table of n, a(n) for n = 1..66430

Example

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

Mathematica

Table[Count[DigitCount[n, 9], +_?(#>0&)], {n, 100}] (* Harvey P. Dale, Apr 30 2015 *)

Prog

(PARI) A043536(n) = length(vecsort(digits(n, 9), , 8)); \\ Antti Karttunen, Dec 22 2017

Crossrefs

Cf. A007095, A043283, A044931, A044940, A044949.

Sequence in context: A276034 A111626 A297777 * A043561 A297778 A043562

Adjacent sequences: A043533 A043534 A043535 * A043537 A043538 A043539

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Antti Karttunen, Dec 22 2017

Status

approved