OFFSET
1,1
EXAMPLE
Rev(9) / Rev(10) = 9 / 1 = 9.
Rev(99) / Rev (100) = 99 / 1 = 99.
Rev(979) / Rev (980) = 979 / 89 = 11.
Rev(999) / Rev (1000) = 999 / 1 = 999. Etc.
MAPLE
with(numtheory): T:=proc(w) local x, y, z; x:=0; y:=w;
for z from 1 to ilog10(w)+1 do x:=10*x+(y mod 10); y:=trunc(y/10); od; x; end;
P:=proc(q) local n; for n from 1 to q do if type(T(n)/T(n+1), integer)
then print(n); fi; od; end: P(10^12);
PROG
(PARI) rev(n)=s=""; for(i=1, #(d=digits(n)), s=concat(d[i], s)); eval(s)
for(n=2, 10^5, if(!(rev(n-1)%rev(n)), print1(n-1, ", "))) \\ Derek Orr, Nov 26 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Nov 26 2014
STATUS
approved