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

0, 0, 27, 234, 1017, 3114, 7749, 16785, 32742, 59022, 0, 18, 216, 999, 3096, 7740, 16776, 32733, 59004, 99963, 27, 225, 999, 3096, 7740, 16767, 32733, 59013, 99972, 161028, 234, 990, 3096, 7740, 16776, 32733, 59013, 99954, 161010, 248796, 1017

Offset

0,3

Comments

a(n) = 0 iff n is a power of ten.

Links

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

Mathematica

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

Crossrefs

Sequence in context: A126522 A273822 A027500 * A183806 A207104 A075548

Adjacent sequences: A069976 A069977 A069978 * A069980 A069981 A069982

Keyword

base,easy,nonn

Author

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

Status

approved