%I #7 Jun 22 2012 18:02:35
%S 1,2,3,4,5,6,7,9,18,27,36,45,54,63,64,65,72,73,74,75,76,77,78,79,81,
%T 82,89,91,97,100,105,109,113,118,121,127,128,130,137,138,144,145,146,
%U 147,148,149,150,151,154,155,162,164,170,173,178
%N Numbers with no two equally numerous base 8 digits.
%H Harvey P. Dale, <a href="/A044957/b044957.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[200],Max[Transpose[Tally[Select[DigitCount[#,8],#>0&]]][[2]]]==1&] (* _Harvey P. Dale_, Jun 22 2012 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|