cp's OEIS Frontend

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

%I A087994 #9 Dec 31 2023 16:57:14
%S A087994 11,11,11,11,5,11,11,11,132,132,11,5,19,37,37,55,55,73,73,5,11,91,11,
%T A087994 91,11,11,5,67,67,12,12,19,37,37,55,55,73,73,5,11,11,91,11,11,91,22,
%U A087994 44,132,11,110,132,11,44,110,4,22,109,11,11,109,5,127,127,145,145,163,163,4
%N A087994 Integer values of quotients arising in A087993. The quotient is (n+rev(n))/abs(n-rev(n)).
%H A087994 Giovanni Resta, <a href="/A087994/b087994.txt">Table of n, a(n) for n = 1..500</a>
%e A087994 n=45, rev(n)=54, q=99/9=9 integer;
%e A087994 n=934065, rev(n)=560434, q=1494504/373626=4
%e A087994 Values observed as quotients:
%e A087994 11,5,132,19,37,55,73,91,67,12,55,22,44,110,4,109,127,163,
%t A087994 rev[n_] := FromDigits@ Reverse@ IntegerDigits@ n;
%t A087994 Reap[Do[r=rev@n; If[n != r && IntegerQ[q = (n+r)/(n-r)], Sow@ Abs@ q], {n, 5*^5}]][[2, 1]]
%Y A087994 Cf. A087993.
%K A087994 base,nonn
%O A087994 1,1
%A A087994 _Labos Elemer_, Oct 08 2003