A308423 Product of divisors of multiply-perfect numbers.
1, 36, 21952, 42998169600000000, 30019840638976, 8480691722056324948490652657647616, 2343612817652433441167245312
Offset: 1
Keywords
Examples
For n = 3; a(3) = A007955(A007691(3)) = A007955(28) = 21952.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..11
Crossrefs
Programs
-
Magma
[&*[d: d in Divisors(m)]: m in [1..10^5] | IsIntegral(SumOfDivisors(m)/m)]
-
Mathematica
s = {}; Do[If[Divisible[DivisorSigma[1, n], n], AppendTo[s, n^(DivisorSigma[0, n]/2)]], {n, 10^4}]; s (* Amiram Eldar, Jul 04 2019 *)
Comments