%I
%S 0,1,2,5,6,7,8,9,10,11,12,15,16,17,18,19,20,21,22,25,26,27,28,29,34,
%T 43,50,51,52,55,56,57,58,59,60,61,62,65,66,67,68,69,70,71,72,75,76,77,
%U 78,79,80,81,82,85,86,87,88,89,90,91,92,95,96,97,98,99,100,101,102
%N Numbers n such that representation in base 10 has same number of 3's and 4's.
%t Select[Range[0, 200], DigitCount[#, 10, 3] == DigitCount[#, 10, 4] &] (* _Vincenzo Librandi_, Oct 27 2016 *)
%o (MAGMA) [n: n in [0..120]  Multiplicity(S, 3) eq Multiplicity(S, 4) where S is {*d: d in Intseq(n)*}]; // _Vincenzo Librandi_, Oct 27 2016
%K nonn,base,easy
%O 1,3
%A _Olivier GĂ©rard_
