This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A048753 #18 Feb 14 2021 18:33:46 %S A048753 4,6,15,16,20,21,27,33,36,39,42,45,48,50,51,56,57,69,70,75,87,93,100, %T A048753 105,111,120,123,129,132,141,154,159,162,175,177,182,183,189,196,198, %U A048753 201,210,213,219,220,231,237,238,245,249,256,266,267,270,273,275,291 %N A048753 Composite numbers k whose product of aliquot divisors divided by number of aliquot divisors is an integer. %H A048753 Amiram Eldar, <a href="/A048753/b048753.txt">Table of n, a(n) for n = 1..10000</a> %e A048753 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 A048753 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 A048753 Cf. A007956, A032741, A048752, A048754. %K A048753 easy,nonn %O A048753 1,1 %A A048753 _Enoch Haga_