OFFSET
1,1
MATHEMATICA
okQ[n_]:=Module[{dcn8=DigitCount[n, 8]}, dcn8[[1]]==dcn8[[7]]>0]
Select[Range[700], okQ] (* Harvey P. Dale, Mar 11 2011 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved