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