|
%I
%S 0,1,2,3,5,6,7,9,10,11,12,14,15,16,18,19,20,21,23,24,25,27,28,29,30,
%T 32,33,34,44,45,46,47,48,50,51,52,54,55,56,57,59,60,61,63,64,65,66,68,
%U 69,70,76,81,82,83,84,86,87,88,90,91,92,93,95,96,97,99,100,101,102
%N Numbers whose base-9 representation has the same number of 4's and 8's.
%t Select[Range[0,120],DigitCount[#,9,4]==DigitCount[#,9,8]&] (* _Harvey P. Dale_, Aug 02 2020 *)
%Y Cf. A007095.
%K nonn,base,easy
%O 1,3
%A _Olivier Gérard_
|
