OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..500
EXAMPLE
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,
MATHEMATICA
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]]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Oct 08 2003
STATUS
approved