A250602 Numbers n whose reversal divides the reversal of n+1.

1, 10, 20, 50, 100, 200, 400, 500, 520, 1000, 2000, 4000, 5000, 5200, 5210, 8000, 10000, 20000, 40000, 50000, 52000, 52100, 52600, 61000, 80000, 100000, 200000, 230000, 400000, 500000, 520000, 521000, 521300, 526000, 610000, 800000, 1000000, 2000000, 2300000

Offset

1,2

Comments

Are all terms except 1 multiples of 10? - Derek Orr, Nov 26 2014

Links

Table of n, a(n) for n=1..39.

Example

Rev(2) / Rev(1) = 2 / 1 = 2.
Rev(11) / Rev (10) = 11 / 1 = 11.
Rev(21) / Rev (20) = 12 / 2 = 6.
Rev(51) / Rev (50) = 15 / 5 = 3. 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+1)/T(n), integer)
then print(n); fi; od; end: P(10^12);

Mathematica

Select[Range[25*10^5], Divisible[IntegerReverse[#+1], IntegerReverse[#]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 28 2018 *)

Prog

(PARI) rev(n)=s=""; for(i=1, #(d=digits(n)), s=concat(d[i], s)); eval(s)
for(n=1, 10^5, if(!(rev(n+1)%rev(n)), print1(n, ", "))) \\ Derek Orr, Nov 26 2014

Crossrefs

Cf. A004086, A160946, A247201, A250603.

Sequence in context: A034087 A117562 A169663 * A115045 A205879 A254030

Adjacent sequences: A250599 A250600 A250601 * A250603 A250604 A250605

Keyword

nonn,base

Author

Paolo P. Lava, Nov 26 2014

Status

approved