|
|
A249765
|
|
Numbers that divide the concatenation, in descending order, of their anti-divisors.
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
Anti-divisors of 7 are and 2, 3, 5 and their concatenation in descending order is 532. Finally, 532 / 7 = 76.
|
|
MAPLE
|
P:=proc(q) local a, k, n; for n from 3 to q do a:=0;
for k from n-1 by -1 to 2 do if abs((n mod k)-k/2)<1 then a:=a*10^(ilog10(k)+1)+k; fi; od;
if type(a/n, integer) then print(n); fi; od; end: P(10^9);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,hard,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|