%I #5 Mar 30 2012 17:30:43
%S 0,0,0,18,54,117,207,333,504,711,0,0,9,45,108,198,324,495,711,972,0,9,
%T 45,108,198,324,486,702,981,1305,18,36,99,189,324,486,702,981,1305,
%U 1701,54,99,189,315,486,711,972,1314,1710,2169,117,198,324,477,702,972
%N (Sum of digits of n)^3 - (sum of digits of n^3).
%C a(n) = 0 for n's: 1, 2, 10, 11, 20, 100, 101, 110, 111, 200, 1000, ....
%t f[n_] := Plus @@ IntegerDigits[n]^3 - Plus @@ (IntegerDigits[n^3]); Table[ f[n], {n, 0, 100}]
%K base,easy,nonn
%O 0,4
%A _N. J. A. Sloane_ and _Robert G. Wilson v_, May 04 2002
|