login
(Sum of digits of n)^3 - (sum of digits^3 of n).
0

%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