A087993 -id:A087993 - cp's OEIS frontend

A087994 Integer values of quotients arising in A087993. The quotient is (n+rev(n))/abs(n-rev(n)).

11, 11, 11, 11, 5, 11, 11, 11, 132, 132, 11, 5, 19, 37, 37, 55, 55, 73, 73, 5, 11, 91, 11, 91, 11, 11, 5, 67, 67, 12, 12, 19, 37, 37, 55, 55, 73, 73, 5, 11, 11, 91, 11, 11, 91, 22, 44, 132, 11, 110, 132, 11, 44, 110, 4, 22, 109, 11, 11, 109, 5, 127, 127, 145, 145, 163, 163, 4

Offset: 1

Labos Elemer, Oct 08 2003

			n=45, rev(n)=54, q=99/9=9 integer;
n=934065, rev(n)=560434, q=1494504/373626=4
Values observed as quotients:
11,5,132,19,37,55,73,91,67,12,55,22,44,110,4,109,127,163,

Giovanni Resta, Table of n, a(n) for n = 1..500

Cf. A087993.

rev[n_] := FromDigits@ Reverse@ IntegerDigits@ n;
Reap[Do[r=rev@n; If[n != r && IntegerQ[q = (n+r)/(n-r)], Sow@ Abs@ q], {n, 5*^5}]][[2, 1]]

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).

Original entry on oeis.org

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

Labos Elemer, Oct 08 2003

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

Cf. A087993, A087994.

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

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

cp's OEIS Frontend

A087994 Integer values of quotients arising in A087993. The quotient is (n+rev(n))/abs(n-rev(n)).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica