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.
MATHEMATICA
f[n_] := Plus @@ IntegerDigits[n]^5 - Plus @@ (IntegerDigits[n]^5); Table[ f[n], {n, 0, 100}]
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
N. J. A. Sloane and Robert G. Wilson v, May 04 2002
STATUS
approved