OFFSET
1,3
MATHEMATICA
okQ[n_]:=Module[{idn9=IntegerDigits[n, 9]}, Count[idn9, 7]==Count[idn9, 8]]
Select[Range[0, 110], okQ] (* Harvey P. Dale, Dec 14 2010 *)
Select[Range[0, 120], DigitCount[#, 9, 7]==DigitCount[#, 9, 8]&] (* Harvey P. Dale, Nov 03 2024 *)
CROSSREFS
KEYWORD
nonn,base,easy,changed
AUTHOR
STATUS
approved