|
%I #11 Jul 20 2019 11:11:29
%S 1,4,6,16,10,24,14,96,96,80,216,320,26,384,480,288,576,224,34,1920,
%T 2304,1056,480,896,38,960,1344,3456,1620,5280,6336,3888,10368,9216,
%U 2816,3584,6480,16384,5400,9600,62,25344,12960,41472,110592,32256,62208,51840,48384
%N Number of divisors of multiply-perfect numbers.
%H Amiram Eldar, <a href="/A088843/b088843.txt">Table of n, a(n) for n = 1..1600</a> (calculated from the b-file at A007691)
%F a(n) = A000005(A007691(n)).
%t s = {}; Do[If[Divisible[DivisorSigma[1, n], n], AppendTo[s, DivisorSigma[0, n]]], {n, 1, 10^6}]; s (* _Amiram Eldar_, Jul 20 2019 *)
%Y Cf. A000005, A007691.
%K nonn
%O 1,2
%A _Labos Elemer_, Nov 05 2003
%E More terms from _Michel Marcus_, Sep 19 2013
%E Data corrected by _Amiram Eldar_, Jul 20 2019
|
