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

Author

Bhushan Bade, Sep 27 2016

Keywords

• nonn
• base
• easy
• less

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.
		

Crossrefs

Cf. A055012, A276959.

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