A043542 Number of distinct base-15 digits of n.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A043289, A043567.

Programs

Mathematica

Table[Length[Union[IntegerDigits[n,15]]],{n,110}] (* Harvey P. Dale, Jul 14 2020 *)

PARI

A043542(n) = #vecsort(digits(n, 15), , 8); \\ Antti Karttunen, Oct 08 2017

Extensions

More terms from Antti Karttunen, Oct 08 2017