%I
%S 0,1,2,4,5,6,8,9,10,11,13,14,15,17,18,19,20,22,23,24,26,34,36,37,38,
%T 40,41,42,44,45,46,47,49,50,51,53,54,55,56,58,59,60,62,66,72,73,74,76,
%U 77,78,80,81,82,83,85,86,87,89,90,91,92,94,95,96,98,99,100,101,103
%N Numbers n such that representation in base 9 has same number of 3's and 7's.
%t Select[Range[0,200],DigitCount[#,9,3]==DigitCount[#,9,7]&] (* _Harvey P. Dale_, Dec 05 2012 *)
%K nonn,base,easy
%O 1,3
%A _Olivier GĂ©rard_
