|
%I #12 Jun 20 2021 15:46:16
%S 0,1,2,4,5,6,8,9,10,12,13,14,16,17,18,20,21,22,31,32,33,34,36,37,38,
%T 40,41,42,44,45,46,48,49,50,52,53,54,59,64,65,66,68,69,70,72,73,74,76,
%U 77,78,80,81,82,84,85,86,95,96,97,98,100,101,102,104,105,106,108,109
%N Numbers whose base-8 representation has the same number of 3's and 7's.
%t Select[Range[200],With[{dc=DigitCount[#,8]},dc[[3]]==dc[[7]]&]] (* _Harvey P. Dale_, Aug 09 2011 *)
%K nonn,base,easy
%O 1,3
%A _Olivier Gérard_
|
