[go: up one dir, main page]

login
Numbers that divide the concatenation, in descending order, of their anti-divisors.
0

%I #10 Nov 22 2014 00:06:33

%S 7,23957,56483,74651,316782,13594764,14473747,30056837

%N Numbers that divide the concatenation, in descending order, of their anti-divisors.

%e Anti-divisors of 7 are and 2, 3, 5 and their concatenation in descending order is 532. Finally, 532 / 7 = 76.

%p P:=proc(q) local a,k,n; for n from 3 to q do a:=0;

%p 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;

%p if type(a/n,integer) then print(n); fi; od; end: P(10^9);

%Y Cf. A066272, A069872, A224930, A240265, A249764.

%K nonn,base,hard,more

%O 1,1

%A _Paolo P. Lava_, Nov 06 2014

%E a(5)-a(8) from _Chai Wah Wu_, Nov 21 2014