A277065 Sum of cubes of the digits of all divisors of n.
1, 9, 28, 73, 126, 252, 344, 585, 757, 135, 3, 325, 29, 417, 279, 802, 345, 1494, 731, 207, 380, 27, 36, 909, 259, 261, 1108, 1001, 738, 531, 29, 837, 84, 444, 621, 1810, 371, 1278, 812, 783, 66, 741, 92, 219, 1197, 324, 408, 1702, 1137, 393, 498, 458, 153, 2034, 378, 1854, 1226, 1383, 855, 828
Offset: 1
Examples
For n = 10 the divisors of 10 are 1, 2, 5, 10, so a(10) = 1^3 + 2^3 + 5^3 + 1^3 + 0^3 = 1 + 8 + 125 + 1 + 0 = 135. For n = 11 the divisors of 11 are 1, 11, so a(11) = 1^3 + 1^3 + 1^3 = 1 + 1 + 1 = 3.
Programs
-
Mathematica
Table[Total[Flatten@ IntegerDigits[Divisors@ n]^3], {n, 60}] (* Michael De Vlieger, Sep 27 2016 *) -
PARI
a(n) = sumdiv(n, d, dd = digits(d); sum(k=1, #dd, dd[k]^3)); \\ Michel Marcus, Sep 29 2016
Extensions
More terms from Michael De Vlieger, Sep 27 2016