A043539 Number of distinct base-12 digits of n.

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

Offset

1,12

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..5000

Formula

From Michael De Vlieger, Aug 14 2017: (Start)

a(11) = 1 since 11 in base 12 is written with a single digit.

a(13) = 1 since 13 in base 12 is written "11".

a(14) = 2 since 14 in base 12 is written "12".

a(146) is the first appearance of 3 in this sequence, since it is written "102" in base 12.

(End)

Mathematica

Table[Length[Select[DigitCount[n, 12], #>0&]], {n, 100}] (* Vincenzo Librandi, Aug 13 2017 *)

Prog

(PARI) a(n) = #Set(digits(n, 12)); \\ Michel Marcus, Aug 13 2017

Crossrefs

Sequence in context: A043538 A297780 A043564 * A297781 A043565 A043540

Adjacent sequences: A043536 A043537 A043538 * A043540 A043541 A043542

Keyword

nonn,base

Author

Clark Kimberling

Status

approved