Sum[k^k], where sum is over positive integers, k, where k <= n and gcd(k,n) = 1.

A057792

Sum[k^k], where sum is over positive integers, k, where k <= n and gcd(k,n) = 1.