[go: up one dir, main page]

login
Numbers which divide the concatenation, in ascending order, of their anti-divisors.
2

%I #14 Nov 22 2014 00:06:20

%S 15,30,105,120,150,222,375,585,1500,1695,1755,1800,2700,3449,3750,

%T 3840,4891,6720,7680,12000,13583,14400,15000,18750,19200,20940,28134,

%U 30000,34800,35625,46875,48000,68400,72504,75000,93750,120000,128400

%N Numbers which divide the concatenation, in ascending order, of their anti-divisors.

%H Chai Wah Wu, <a href="/A249764/b249764.txt">Table of n, a(n) for n = 1..103</a>

%e Anti-divisors of 15 are 2, 6, 10 and their concatenation in ascending order is 2610. Finally, 2610 / 15 = 174.

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

%p for k from 2 to n-1 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.

%K nonn,base

%O 1,1

%A _Paolo P. Lava_, Nov 05 2014