OFFSET
1,3
MATHEMATICA
dg27Q[n_]:=Module[{dc=DigitCount[n]}, dc[[2]]==dc[[7]]]; Select[Range[ 0, 110], dg27Q] (* Harvey P. Dale, Nov 19 2011 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved