A160933 - OEIS

%I #4 Apr 18 2019 16:41:48

%S -1,-2,-3,-4,-5,-6,-7,-8,0,-10,-11,-30,-49,-68,-87,-106,-125,-144,-64,

%T -83,-3,-22,-41,-60,-79,-98,-117,-136,-56,-75,5,-14,-33,-52,-71,-90,

%U -109,-128,-48,-67,13,-6,-25,-44,-63,-82,-101,-120,-40,-59,21,2,-17,-36

%N a(n)= n - reversal(n-1) - reversal(n+1)

%C a(8)=8-R(7)-R(9)=8-7-9=-8; a(15)=15+R(14)+R(16)=15-41-61=-87; a(26)=26-R(25)-R(27)=26-52-72=-98

%t Table[n-IntegerReverse[n-1]-IntegerReverse[n+1],{n,60}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 18 2019 *)

%K base,sign

%O 1,2

%A _Claudio Meller_, May 30 2009