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 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved