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