A069939 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, 1, 8, 27, 64, 125, 216, 343, 512, 729, 1, 4, 15, 40, 85, 156, 259, 400, 585, 820, 8, 15, 32, 65, 120, 203, 320, 477, 680, 935, 27, 40, 65, 108, 175, 272, 405, 580, 803, 1080, 64, 85, 120, 175, 256, 369, 520, 715, 960, 1261, 125, 156, 203, 272, 369, 500, 671

Offset

0,3

Links

Table of n, a(n) for n=0..56.

Mathematica

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 *)

Crossrefs

Cf. A007953, A003132, A055012, A069816.

Sequence in context: A352172 A376270 A055012 * A118880 A048390 A000578

Adjacent sequences: A069936 A069937 A069938 * A069940 A069941 A069942

Keyword

nonn,base

Author

Vladeta Jovovic, May 04 2002

Status

approved