OFFSET
1,2
COMMENTS
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
MATHEMATICA
Table[n-IntegerReverse[n-1]-IntegerReverse[n+1], {n, 60}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 18 2019 *)
CROSSREFS
KEYWORD
base,sign
AUTHOR
Claudio Meller, May 30 2009
STATUS
approved