A069980 - OEIS

%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