OFFSET
0,3
COMMENTS
a(n) = 0 iff n is a power of ten.
MATHEMATICA
f[n_] := Plus @@ IntegerDigits[n]^6 - Plus @@ (IntegerDigits[n^6]); Table[ f[n], {n, 0, 100}]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
N. J. A. Sloane and Robert G. Wilson v, May 04 2002
STATUS
approved