OFFSET
1,3
LINKS
MATHEMATICA
Array[DivisorSum[Apply[Times, FactorInteger[#] /. {p_, e_} /; e > 0 :> Apply[Times, Prime@ Range@ PrimePi@ p]^e], # &, OddQ] &, 50] (* Michael De Vlieger, Aug 27 2020 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 22 2020
STATUS
approved