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