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 A048657 #14 Jul 09 2019 10:57:31
%S A048657 0,0,0,4,8,22,44,80,144,254,508,760,1520,2528,3968,5312,10624,14560,
%T A048657 29120,40784,60544,95744,191488,242368,339520,531712,676864,916768,
%U A048657 1833536,2331776,4663552,5527552,7862272,12163072,16420864,19593472
%N A048657 Number of non-unitary divisors of n!.
%H A048657 Amiram Eldar, <a href="/A048657/b048657.txt">Table of n, a(n) for n = 1..1000</a>
%F A048657 a(n) = A000005(n!) - 2^(A000720(n)).
%F A048657 a(n) = A048105(n!). - _Michel Marcus_, Jun 30 2017
%e A048657 n=5, 5!=120 has 16 divisors of which 8 are not unitary:{2,60,4,30,6,20,10,12} while {1,120,3,40,5,24,15,16} are the unitary ones.
%t A048657 Table[Function[k, DivisorSum[k, 1 &, ! CoprimeQ[#, k/#] &]][n!], {n, 30}] (* _Michael De Vlieger_, Jun 29 2017 *)
%Y A048657 Cf. A000005, A000720, A027423, A034444, A048105, A048656.
%K A048657 nonn
%O A048657 1,4
%A A048657 _Labos Elemer_