%I #5 Mar 30 2012 17:30:43
%S 0,0,9,72,243,612,1278,2394,4077,6543,0,0,63,234,603,1278,2376,4077,
%T 6534,9990,9,54,234,594,1269,2376,4059,6543,9972,14616,72,234,594,
%U 1269,2376,4077,6525,9972,14616,20718,243,594,1269,2376,4059,6543,9963
%N (Sum of digits of n)^4 - (sum of digits of n^4).
%C a(n) = 0 for n's: 1, 10, 11, 100, 101, 110, 1000, ....
%t f[n_] := Plus @@ IntegerDigits[n]^4 - Plus @@ (IntegerDigits[n^4]); 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
|