|
%I #12 Apr 24 2021 21:31:20
%S 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,1,2,2,
%T 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,1,2,2,2,2,
%U 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,1,2,2,2,2,2,2,2,2,2
%N Number of distinct base-15 digits of n.
%H Antti Karttunen, <a href="/A043542/b043542.txt">Table of n, a(n) for n = 1..65536</a>
%t Table[Length[Union[IntegerDigits[n,15]]],{n,110}] (* _Harvey P. Dale_, Jul 14 2020 *)
%o (PARI) A043542(n) = #vecsort(digits(n, 15), , 8); \\ _Antti Karttunen_, Oct 08 2017
%Y Cf. A043289, A043567.
%K nonn,base
%O 1,15
%A _Clark Kimberling_
%E More terms from _Antti Karttunen_, Oct 08 2017
|
