A088843 Number of divisors of multiply-perfect numbers.
1, 4, 6, 16, 10, 24, 14, 96, 96, 80, 216, 320, 26, 384, 480, 288, 576, 224, 34, 1920, 2304, 1056, 480, 896, 38, 960, 1344, 3456, 1620, 5280, 6336, 3888, 10368, 9216, 2816, 3584, 6480, 16384, 5400, 9600, 62, 25344, 12960, 41472, 110592, 32256, 62208, 51840, 48384
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1600 (calculated from the b-file at A007691)
Programs
-
Mathematica
s = {}; Do[If[Divisible[DivisorSigma[1, n], n], AppendTo[s, DivisorSigma[0, n]]], {n, 1, 10^6}]; s (* Amiram Eldar, Jul 20 2019 *)
Extensions
More terms from Michel Marcus, Sep 19 2013
Data corrected by Amiram Eldar, Jul 20 2019