--- from: http://rosettacode.org/wiki/Own_digits_power_sum