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