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

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A043540 A297782 A043566 * A297783 A043542 A043567

Adjacent sequences: A043538 A043539 A043540 * A043542 A043543 A043544

Keyword

nonn,base

Author

Clark Kimberling

Status

approved