login
1/3!*((Sum of digits of n)^3 + 3*(Sum of digits of n)*(Sum of digits^2 of n) + 2*(Sum of digits^3 of n)).
0

%I #8 Nov 21 2013 12:47:47

%S 0,1,8,27,64,125,216,343,512,729,1,4,15,40,85,156,259,400,585,820,8,

%T 15,32,65,120,203,320,477,680,935,27,40,65,108,175,272,405,580,803,

%U 1080,64,85,120,175,256,369,520,715,960,1261,125,156,203,272,369,500,671

%N 1/3!*((Sum of digits of n)^3 + 3*(Sum of digits of n)*(Sum of digits^2 of n) + 2*(Sum of digits^3 of n)).

%t sdn[n_]:=Module[{c=1/3!,idn=IntegerDigits[n],sdn},sdn=Total[idn];c(sdn^3+ 3sdn Total[idn^2]+2Total[idn^3])]; Array[sdn,60,0] (* _Harvey P. Dale_, Dec 29 2011 *)

%Y Cf. A007953, A003132, A055012, A069816.

%K nonn,base

%O 0,3

%A _Vladeta Jovovic_, May 04 2002