OFFSET
1,2
LINKS
Lars Blomberg, Table of n, a(n) for n = 1..41
EXAMPLE
Divisors of 8997 are 1, 3, 2999, 8997 and the sum of their reverse is 1 + 3 + 9992 + 7998 = 17994. Finally, 17994 / 8997 = 2.
MAPLE
with(numtheory):
T:=proc(w) local x, y, z; x:=w; y:=0;
for z from 1 to ilog10(x)+1 do y:=10*y+(x mod 10); x:=trunc(x/10); od; y; end:
P:=proc(q) local a, b, k; global n;
for n from 1 to q do a:=sort([op(divisors(n))]); b:=add(T(a[k]), k=1..nops(a));
if type(b/n, integer) then print(n); fi; od; end: P(10^9);
PROG
(Magma) [n: n in [1..10^6] | &+[Seqint(Reverse(Intseq(d))): d in Divisors(n)] mod n eq 0]; // Bruno Berselli, Jan 22 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Jan 22 2015
EXTENSIONS
a(19)-a(33) from Lars Blomberg, Feb 27 2015
STATUS
approved