OFFSET
1,3
MATHEMATICA
b847Q[n_]:=Module[{dcn=DigitCount[n, 8]}, dcn[[4]]==dcn[[7]]]; Select[ Range[ 0, 150], b847Q] (* Harvey P. Dale, Oct 20 2011 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved