OFFSET
1,1
EXAMPLE
366' = 311 = 663';
3245' = 999 = 5423'; etc.
MAPLE
with(numtheory): T:=proc(w) local x, y, z; x:=w; y:=0;
for z from 1 to ilog10(x)+1 do y:=10*y+(x mod 10); x:=trunc(x/10);
od; y; end: P:=proc(q) local a, b, p, n;
for n from 1 to q do if not isprime(n) then if n<>T(n) then a:=n*add(op(2, p)/op(1, p), p=ifactors(n)[2]);
b:=T(n)*add(op(2, p)/op(1, p), p=ifactors(T(n))[2]);
if a=b then print(n); fi; fi; fi; od; end: P(10^9);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Jun 18 2015
STATUS
approved