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,54,711,4077,15606,46629,117621,262125,531423,0,36,684,4059,15588,
%T 46629,117612,262107,531423,999963,54,693,4059,15579,46620,117621,
%U 262098,531396,999963,1771524,711,4050,15588,46602,117612,262098
%N (Sum of digits of n)^6 - (sum of digits of n^6).
%C a(n) = 0 iff n is a power of ten.
%t f[n_] := Plus @@ IntegerDigits[n]^6 - Plus @@ (IntegerDigits[n^6]); 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