|
%I #11 Apr 24 2021 21:31:00
%S 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,
%T 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,
%U 2,2,2,2,2,2,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
%N Number of distinct base-14 digits of n.
%H Vincenzo Librandi, <a href="/A043541/b043541.txt">Table of n, a(n) for n = 1..5000</a>
%t Table[Length[Select[DigitCount[n, 14], #>0&]], {n, 100}] (* _Vincenzo Librandi_, Aug 13 2017 *)
%o (PARI) a(n) = #Set(digits(n, 14)); \\ _Michel Marcus_, Aug 13 2017
%K nonn,base
%O 1,14
%A _Clark Kimberling_
|
