A250602 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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