%I #14 Jun 29 2021 02:18:59
%S 28,53,77,102,126,151,175,197,198,199,201,202,203,210,217,231,238,249,
%T 273,298,322,354,361,368,372,373,374,376,377,382,389,396,420,445,469,
%U 494,518,540,541,542,544,545,546,553,560,574,581,592,616,641,665,697
%N Numbers whose base-7 representation has the same nonzero number of 0's and 4's.
%t Select[Range[700],DigitCount[#,7,0]==DigitCount[#,7,4]>0&] (* _Harvey P. Dale_, Jul 25 2016 *)
%Y Cf. A007093.
%K nonn,base,easy
%O 1,1
%A _Olivier GĂ©rard_