A043543 Number of distinct base-16 digits of n.
1, 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, 2, 1, 2, 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, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2
Offset: 1
Crossrefs
Differs from A297784.
Programs
-
Maple
A043543 := proc(n) convert(convert(n,base,16),set) ; nops(%) ; end proc: # R. J. Mathar, Jul 08 2023
-
Mathematica
Table[Length[Union[IntegerDigits[n,16]]],{n,90}] (* Harvey P. Dale, Jul 23 2013 *)
Comments