login
A097153
Reversal of n minus largest digit of n.
5
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 19, 28, 37, 46, 55, 64, 73, 82, 0, 10, 20, 29, 38, 47, 56, 65, 74, 83, 0, 10, 20, 30, 39, 48, 57, 66, 75, 84, 0, 10, 20, 30, 40, 49, 58, 67, 76, 85, 0, 10, 20, 30, 40, 50, 59, 68, 77, 86, 0, 10, 20, 30, 40, 50, 60, 69, 78, 87, 0, 10, 20, 30, 40, 50
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