A332478 Number that are unitary norm-multiply-perfect numbers in Gaussian integers.
1, 10, 12, 20160, 15713280, 137592000, 44289146880
Offset: 1
Examples
10 is a term since its sum of unitary divisors in Gaussian integers is -12 + 16*i, whose norm (-12)^2 + 16^2 = 400 is divisible by 10^2 = 100.
Programs
-
Mathematica
f[p_, e_] := If[Abs[p] == 1, 1, (p^e + 1)]; Select[Range[21000], Divisible[Abs[ Times @@ f @@@ FactorInteger[#, GaussianIntegers -> True]]^2, #^2] &]
Comments