A044958 Numbers with no two equally numerous base 9 digits.
1, 2, 3, 4, 5, 6, 7, 8, 10, 20, 30, 40, 50, 60, 70, 80, 81, 82, 90, 91, 92, 93, 94, 95, 96, 97, 98, 100, 101, 109, 111, 118, 121, 127, 131, 136, 141, 145, 151, 154, 161, 162, 164, 172, 173, 180, 181, 182, 183, 184, 185, 186, 187, 188
Offset: 1
Programs
-
Mathematica
Select[Range[200],Min[Differences[Sort[Transpose[Tally[ IntegerDigits[ #,9]]][[2]]]]]>0&] (* Harvey P. Dale, Apr 21 2012 *)