|
|
A277065
|
|
Sum of cubes of the digits of all divisors of n.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base,easy,less
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|