OFFSET
1,2
MATHEMATICA
s048Q[n_]:=Module[{dc8=DigitCount[n, 8]}, dc8[[8]]==dc8[[4]]]; Select[ Range[120], s048Q] (* Harvey P. Dale, Oct 21 2011 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved