A097153 Reversal of n minus largest digit of n.

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

Links

Table of n, a(n) for n=1..75.

Mathematica

Table[IntegerReverse[n]-Max[IntegerDigits[n]], {n, 100}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 03 2019 *)

Crossrefs

Cf. A097154, A097155, A097156, A097157, A097158.

Sequence in context: A044434 A098750 A089756 * A017173 A326833 A276871

Adjacent sequences: A097150 A097151 A097152 * A097154 A097155 A097156

Keyword

base,easy,nonn

Author

Jason Earls, Aug 01 2004

Status

approved