%I #15 Jun 29 2021 02:19:03
%S 21,52,70,101,119,148,149,151,152,153,154,161,175,182,189,199,217,248,
%T 266,297,315,353,360,365,366,368,369,370,374,381,388,395,413,444,462,
%U 491,492,494,495,496,497,504,518,525,532,542,560,591,609,640,658,696
%N Numbers whose base-7 representation has the same nonzero number of 0's and 3's.
%t Select[Range[700],DigitCount[#,7,0]==DigitCount[#,7,3]>0&] (* _Harvey P. Dale_, Sep 15 2011 *)
%Y Cf. A007093.
%K nonn,base,easy
%O 1,1
%A _Olivier GĂ©rard_
|