|
%I #22 Jun 30 2018 16:48:54
%S 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,2,1,0,-1,-2,-3,-4,-5,-6,-7,3,
%T 1,-1,-3,-5,-7,-9,-11,-13,-15,4,1,-2,-5,-8,-11,-14,-17,-20,-23,5,1,-3,
%U -7,-11,-15,-19,-23,-27,-31,6,1,-4,-9,-14,-19,-24,-29,-34,-39,7,1,-5,-11,-17,-23,-29,-35,-41,-47,8,1,-6,-13,-20,-27
%N a(n) = (sum of digits of n) - (product of digits of n).
%H Harry J. Smith, <a href="/A062329/b062329.txt">Table of n, a(n) for n = 0..1000</a>
%e a(23) = 2 + 3 - 2*3 = -1.
%e a(49) = -(4*9) + (4 + 9) = -36 + 13 = -23.
%t a[n_] := (t = IntegerDigits[n]; Plus @@ t - Times @@ t); Table[ a[n], {n, 0, 75}] (* _Robert G. Wilson v_ *)
%Y Cf. A007953, A007954, A034710, A062996, A062997, A062998, A062999, A070565.
%Y A063543 has a similar graph.
%K sign,base,easy,look
%O 0,21
%A _Amarnath Murthy_, Jun 21 2001
%E Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jun 22 2001
%E Signed version from _Henry Bottomley_, Jun 29 2001
|
