OFFSET
1,2
MATHEMATICA
Table[DivisorSum[n, #^DivisorSigma[1, n/#] &, PrimeQ[#] &], {n, 50}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Jan 30 2024
STATUS
approved