OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
MATHEMATICA
Array[FactorInteger[DivisorSigma[0, #]][[1, 1]] &@ Apply[Times, Map[#1^#2 & @@ # &, FactorInteger[#] /. {p_, e_} /; e > 0 :> {Times @@ Prime@ Range@ PrimePi@ p, e}]] &, 105] (* Michael De Vlieger, Nov 18 2019 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 17 2019
STATUS
approved