OFFSET
1,1
MATHEMATICA
b9Q[n_]:=Module[{idn9=IntegerDigits[n, 9]}, Count[idn9, 7]==Count[idn9, 8]!=0]
Select[Range[1100], b9Q] (* Harvey P. Dale, Feb 14 2011 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved