OFFSET
1,2
MATHEMATICA
Select[Range@100, (s=#; Differences[Count[IntegerDigits[s, 9], #]&/@{0, 8}]=={0})&] (* Giorgos Kalogeropoulos, Jul 04 2021 *)
Select[Range[100], DigitCount[#, 9, 0]==DigitCount[#, 9, 8]&] (* Harvey P. Dale, Mar 09 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved