OFFSET
0,3
COMMENTS
a(n) = 0 for n's: 1, 10, 11, 100, 101, 110, 1000, ....
MATHEMATICA
f[n_] := Plus @@ IntegerDigits[n]^4 - Plus @@ (IntegerDigits[n^4]); 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