A043540 Number of distinct base-13 digits of n.

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

Offset

1,13

Links

Table of n, a(n) for n=1..90.

Mathematica

Table[Length[Union[IntegerDigits[n, 13]]], {n, 120}] (* Harvey P. Dale, May 12 2019 *)

Prog

(PARI) vector(90, n, #vecsort(digits(n, 13), , 8)) \\ Michel Marcus, Aug 19 2015

Crossrefs

Sequence in context: A043539 A297781 A043565 * A297782 A043566 A043541

Adjacent sequences: A043537 A043538 A043539 * A043541 A043542 A043543

Keyword

nonn,base

Author

Clark Kimberling

Status

approved