Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #5 Mar 30 2012 17:30:43
%S 0,0,27,234,1017,3114,7749,16785,32742,59022,0,18,216,999,3096,7740,
%T 16776,32733,59004,99963,27,225,999,3096,7740,16767,32733,59013,99972,
%U 161028,234,990,3096,7740,16776,32733,59013,99954,161010,248796,1017
%N (Sum of digits of n)^5 - (sum of digits of n^5).
%C a(n) = 0 iff n is a power of ten.
%t f[n_] := Plus @@ IntegerDigits[n]^5 - Plus @@ (IntegerDigits[n^5]); Table[ f[n], {n, 0, 100}]
%K base,easy,nonn
%O 0,3
%A _N. J. A. Sloane_ and _Robert G. Wilson v_, May 04 2002