login
A369782
a(n) = Sum_{p|n, p prime} n^phi(n/p).
0
0, 2, 3, 4, 5, 42, 7, 64, 81, 10010, 11, 288, 13, 7529550, 50850, 65536, 17, 34012548, 19, 160400, 85766562, 26559922791446, 23, 663552, 390625, 95428956661682202, 387420489, 481891088, 29, 656100810900, 31, 1099511627776, 1531578985265538, 3189059870763703892770850
OFFSET
1,2
MATHEMATICA
Table[DivisorSum[n, n^EulerPhi[n/#] &, PrimeQ[#] &], {n, 40}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Jan 31 2024
STATUS
approved