A048753 - OEIS

%I #18 Feb 14 2021 18:33:46

%S 4,6,15,16,20,21,27,33,36,39,42,45,48,50,51,56,57,69,70,75,87,93,100,

%T 105,111,120,123,129,132,141,154,159,162,175,177,182,183,189,196,198,

%U 201,210,213,219,220,231,237,238,245,249,256,266,267,270,273,275,291

%N Composite numbers k whose product of aliquot divisors divided by number of aliquot divisors is an integer.

%H Amiram Eldar, <a href="/A048753/b048753.txt">Table of n, a(n) for n = 1..10000</a>

%e For k=6, the product of aliquot divisors is 3*2*1=6; the number of aliquot divisors is 3; 6/3 = 2 (an integer), so 6 is a term.

%t padQ[n_]:=Module[{ad=Most[Divisors[n]]},!PrimeQ[n]&&Divisible[Times@@ad, Length[ad]]]; Select[Range[2,300],padQ] (* _Harvey P. Dale_, May 07 2012 *)

%Y Cf. A007956, A032741, A048752, A048754.

%K easy,nonn

%O 1,1

%A _Enoch Haga_