A043540 - OEIS

%I #12 Apr 24 2021 21:30:39

%S 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,

%T 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,

%U 2,1,2,2,2,2,2,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2

%N Number of distinct base-13 digits of n.

%t Table[Length[Union[IntegerDigits[n,13]]],{n,120}] (* _Harvey P. Dale_, May 12 2019 *)

%o (PARI) vector(90, n, #vecsort(digits(n,13),,8)) \\ _Michel Marcus_, Aug 19 2015

%K nonn,base

%O 1,13

%A _Clark Kimberling_