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

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A043289, A043567.

Sequence in context: A043566 A043541 A297783 * A043567 A297784 A043568

Adjacent sequences: A043539 A043540 A043541 * A043543 A043544 A043545

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Antti Karttunen, Oct 08 2017

Status

approved