chickadee » math » divisor-sum

divisor-sum n kprocedure
n
integer
k
integer

Returns sum of the kth powers of all divisors of n.

> (divisor-sum 12 2)
210
> (apply + (map sqr (divisors 12)))
210

Wikipedia: Divisor Function