A087996 Residues when (n+rev[n]) is divided by abs(n-rev[n]); zero if n=rev[n] (when n is palindromic), or when the quotient is an integer (see A087993).

0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 6, 8, 1, 30, 32, 34, 36, 38, 4, 6, 0, 1, 12, 23, 16, 9, 2, 58, 6, 8, 1, 0, 5, 16, 18, 2, 31, 24, 8, 1, 12, 5, 0, 0, 2, 13, 24, 8, 10, 30, 23, 16, 0, 0, 4, 6, 8, 10, 12, 32, 16, 18, 2, 4, 0, 8, 10, 3, 14, 34, 9, 2, 13, 6, 8, 0, 3, 14, 16, 36, 2, 31, 24, 8, 10, 3, 0, 7

Offset: 1

Author

Labos Elemer, Oct 08 2003

Keywords

• base
• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A087993, A087994.

Programs

Mathematica

Table[With[{rev=IntegerReverse[n]},If[PalindromeQ[n],0,Mod[n+rev,Abs[n-rev]]]],{n,90}] (* Harvey P. Dale, Aug 23 2025 *)

Formula

a(n) = Mod[n+rev(n), abs[n-rev(n)]] if n is non-palindromic or is non-integer; a(n)=0 otherwise.