more Sum of Digits

R