cp's OEIS Frontend

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

%I A087996 #18 Aug 23 2025 15:46:55
%S A087996 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,
%T A087996 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,
%U A087996 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
%N 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).
%H A087996 Harvey P. Dale, <a href="/A087996/b087996.txt">Table of n, a(n) for n = 1..1000</a>
%F A087996 a(n) = Mod[n+rev(n), abs[n-rev(n)]] if n is non-palindromic or is non-integer; a(n)=0 otherwise.
%t A087996 Table[With[{rev=IntegerReverse[n]},If[PalindromeQ[n],0,Mod[n+rev,Abs[n-rev]]]],{n,90}] (* _Harvey P. Dale_, Aug 23 2025 *)
%Y A087996 Cf. A087993, A087994.
%K A087996 base,nonn
%O A087996 1,10
%A A087996 _Labos Elemer_, Oct 08 2003