A069965 (Sum of digits of n)^5 - (sum of digits^5 of n).

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 210, 780, 2100, 4650, 9030, 15960, 26280, 40950, 0, 210, 960, 2850, 6720, 13650, 24960, 42210, 67200, 101970, 0, 780, 2850, 7290, 15540, 29400, 51030, 82950, 128040, 189540, 0, 2100, 6720, 15540, 30720, 54900

Offset

0,12

Comments

a(n) = 0 iff n is a single-digit number or is a power of ten times a single-digit number.

Links

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

Mathematica

f[n_] := Plus @@ IntegerDigits[n]^5 - Plus @@ (IntegerDigits[n]^5); Table[ f[n], {n, 0, 100}]

Crossrefs

Sequence in context: A129499 A286763 A347828 * A215627 A178672 A061661

Adjacent sequences: A069962 A069963 A069964 * A069966 A069967 A069968

Keyword

nonn,base,easy

Author

N. J. A. Sloane and Robert G. Wilson v, May 04 2002

Status

approved