%I #14 Jun 25 2021 01:42:24
%S 1,2,3,4,5,6,8,10,11,12,13,14,15,17,19,20,21,22,23,24,26,28,29,30,31,
%T 32,33,35,37,38,39,40,41,42,44,46,47,48,49,50,51,53,55,56,57,58,59,60,
%U 62,63,73,74,75,76,77,78,80,88,91,92,93,94,95,96,98,100,101,102,103
%N Numbers whose base-9 representation has the same number of 0's and 7's.
%t Select[Range[120],DigitCount[#,9,0]==DigitCount[#,9,7]&] (* _Harvey P. Dale_, Mar 06 2018 *)
%Y Cf. A007095.
%K nonn,base,easy
%O 1,2
%A _Olivier GĂ©rard_
|