%I
%S 1,2,3,4,6,12,18,24,25,26,30,31,32,33,34,36,37,41,43,46,49,50,52,56,
%T 57,60,61,62,63,64,67,68,72,74,75,78,81,83,87,88,90,91,92,93,94,98,99,
%U 100,104,106,109,112,114,118,119,120,121,122,123
%N Numbers with no two equally numerous base 5 digits.
%t nten5Q[n_]:=Module[{c=Select[DigitCount[n,5],#>0&]},Length[c] == Length[ Union[ c]]]; Select[Range[150],nten5Q] (* _Harvey P. Dale_, Mar 08 2015 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
