login
Sum of cubes of the digits of all divisors of n.
0

%I #16 Nov 11 2016 17:51:04

%S 1,9,28,73,126,252,344,585,757,135,3,325,29,417,279,802,345,1494,731,

%T 207,380,27,36,909,259,261,1108,1001,738,531,29,837,84,444,621,1810,

%U 371,1278,812,783,66,741,92,219,1197,324,408,1702,1137,393,498,458,153,2034,378,1854,1226,1383,855,828

%N Sum of cubes of the digits of all divisors of n.

%e 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.

%e For n = 11 the divisors of 11 are 1, 11, so a(11) = 1^3 + 1^3 + 1^3 = 1 + 1 + 1 = 3.

%t Table[Total[Flatten@ IntegerDigits[Divisors@ n]^3], {n, 60}] (* _Michael De Vlieger_, Sep 27 2016 *)

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

%Y Cf. A055012, A276959.

%K nonn,base,easy,less

%O 1,2

%A _Bhushan Bade_, Sep 27 2016

%E More terms from _Michael De Vlieger_, Sep 27 2016