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,10

Links

Table of n, a(n) for n=1..89.

Formula

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

Mathematica

dm[n_]:=Module[{rev=FromDigits[Reverse[IntegerDigits[n]]]}, If[n == rev, 0, Mod[ n+rev, Abs[n-rev]]]]; Array[dm, 90] (* Harvey P. Dale, Feb 20 2013 *)

Crossrefs

Cf. A087993, A087994.

Sequence in context: A057720 A248507 A377797 * A086777 A355978 A334349

Adjacent sequences: A087993 A087994 A087995 * A087997 A087998 A087999

Keyword

base,nonn

Author

Labos Elemer, Oct 08 2003

Status

approved