OFFSET
1,11
MATHEMATICA
Table[IntegerReverse[n]-Max[IntegerDigits[n]], {n, 100}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 03 2019 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Aug 01 2004
STATUS
approved