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,2

Links

Table of n, a(n) for n=1..60.

Example

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.

Mathematica

Table[Total[Flatten@ IntegerDigits[Divisors@ n]^3], {n, 60}] (* Michael De Vlieger, Sep 27 2016 *)

Prog

(PARI) a(n) = sumdiv(n, d, dd = digits(d); sum(k=1, #dd, dd[k]^3)); \\ Michel Marcus, Sep 29 2016

Crossrefs

Cf. A055012, A276959.

Sequence in context: A065959 A226333 A017669 * A001158 A171215 A296601

Adjacent sequences: A277062 A277063 A277064 * A277066 A277067 A277068

Keyword

nonn,base,easy,less

Author

Bhushan Bade, Sep 27 2016

Extensions

More terms from Michael De Vlieger, Sep 27 2016

Status

approved