A097153 - OEIS

%I #5 Jun 03 2019 20:14:02

%S 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,

%T 65,74,83,0,10,20,30,39,48,57,66,75,84,0,10,20,30,40,49,58,67,76,85,0,

%U 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

%N Reversal of n minus largest digit of n.

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

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

%K base,easy,nonn

%O 1,11

%A _Jason Earls_, Aug 01 2004