OFFSET
1,2
COMMENTS
Similar to A160946.
Sequence is infinite because any number of the form 10^k, for k integer, belongs to the sequence. In fact Rev(10^k)=1 and (10^k + 1) / 1 = 10^k + 1. Also concat(7,9…9,3) = 73, 793, 7993, 79993, etc. is part of the sequence: Rev(concat(7,9…9,3)) = concat(3,9…9,7) and concat(7,9…9,4) / concat(3,9…9,7) = 2.
EXAMPLE
Rev(1) = 1 and 2 / 1 = 2.
Rev(10) = 1 and 11 /1 = 11.
Rev(41) = 14 and 42 / 14 = 3.
Rev(73) = 37 and 74 / 37 = 2. 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((n+1)/T(n), integer)
then print(n); fi; od; end: P(10^9);
PROG
(PARI) rev(n)=s=""; for(i=1, #(d=digits(n)), s=concat(d[i], s)); eval(s)
for(n=1, 10^5, if(!((n+1)%rev(n)), print1(n, ", "))) \\ Derek Orr, Nov 26 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Nov 25 2014
STATUS
approved