A043541 Number of distinct base-14 digits of n.

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

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Programs

Mathematica

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

PARI

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