login
Numbers whose base-9 representation has the same number of 0's as 8's.
0

%I #13 Mar 09 2023 11:40:14

%S 1,2,3,4,5,6,7,10,11,12,13,14,15,16,19,20,21,22,23,24,25,28,29,30,31,

%T 32,33,34,37,38,39,40,41,42,43,46,47,48,49,50,51,52,55,56,57,58,59,60,

%U 61,64,65,66,67,68,69,70,72,89,91,92,93,94,95

%N Numbers whose base-9 representation has the same number of 0's as 8's.

%t Select[Range@100,(s=#;Differences[Count[IntegerDigits[s,9],#]&/@{0,8}]=={0})&] (* _Giorgos Kalogeropoulos_, Jul 04 2021 *)

%t Select[Range[100],DigitCount[#,9,0]==DigitCount[#,9,8]&] (* _Harvey P. Dale_, Mar 09 2023 *)

%Y Cf. A007095.

%K nonn,base

%O 1,2

%A _Clark Kimberling_