login
Numbers n such that n = Rev(sigma*(n)), where sigma*(n) is the sum of the anti-divisors of n and Rev(n) is the reverse of n.
0

%I #8 Dec 07 2014 02:27:12

%S 5,8,64,614,47678,4442395

%N Numbers n such that n = Rev(sigma*(n)), where sigma*(n) is the sum of the anti-divisors of n and Rev(n) is the reverse of n.

%e Anti-divisors of 5 are 2, 3 and 2 + 3 = 5 = Rev(5).

%e Anti-divisors of 614 are 3, 4, 409 and 3 + 4 + 409 = 416 = Rev(614).

%p with(numtheory):T:=proc(w) local x,y,z; x:=w; y:=0;

%p for z from 1 to ilog10(x)+1 do y:=10*y+(x mod 10); x:=trunc(x/10); od; y; end:

%p P:=proc(q) local j,k,n; for n from 1 to q do

%p k:=0; j:=n; while j mod 2 <> 1 do k:=k+1; j:=j/2; od;

%p if sigma(2*n+1)+sigma(2*n-1)+sigma(n/2^k)*2^(k+1)-6*n-2=T(n);

%p then print(n); fi; od; end: P(10^9);

%Y Cf. A000203, A066417, A178029, A248787.

%K nonn,base,more

%O 1,1

%A _Paolo P. Lava_, Nov 11 2014

%E a(6) from _Chai Wah Wu_, Dec 06 2014