%I #11 Dec 08 2018 02:39:27
%S 0,0,0,0,0,0,0,0,0,0,0,6,18,36,60,90,126,168,216,270,0,18,48,90,144,
%T 210,288,378,480,594,0,36,90,162,252,360,486,630,792,972,0,60,144,252,
%U 384,540,720,924,1152,1404,0,90,210,360,540,750,990,1260,1560,1890,0
%N (Sum of digits of n)^3 - (sum of digits^3 of n).
%C a(n) = 0 iff n is a single-digit number or is a power of ten times a single-digit number.
%F a(n) = A007953(n)^3 - A055012(n). - _Michel Marcus_, Nov 01 2014
%t f[n_] := Plus @@ IntegerDigits[n]^3 - Plus @@ (IntegerDigits[n]^3); Table[ f[n], {n, 0, 100}]
%Y Cf. A007953 (sum of digits), A055012 (sum of cubes of digits).
%K nonn,base,easy
%O 0,12
%A _N. J. A. Sloane_ and _Robert G. Wilson v_, May 04 2002