OFFSET
1,4
MATHEMATICA
Table[n*DivisorSum[n, EulerPhi[n/#]/# &, PrimeQ[#] &], {n, 100}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Jan 31 2024
STATUS
approved