|
%I #14 Sep 09 2020 21:24:00
%S 0,0,0,0,0,0,0,0,0,0,10,10,10,10,10,10,10,10,10,10,20,19,18,17,16,15,
%T 14,13,12,11,30,28,26,24,22,20,18,16,14,12,40,37,34,31,28,25,22,19,16,
%U 13,50,46,42,38,34,30,26,22,18,14,60,55,50,45,40,35,30,25,20,15,70,64,58
%N n - product of digits of n.
%H Robert Price, <a href="/A070565/b070565.txt">Table of n, a(n) for n = 0..10000</a>
%e a(20) = 20 - 2*0 = 20, a(22) = 22 - 2*2 = 18.
%t Table[n - Times @@ IntegerDigits[n], {n, 0, 75}]
%o (PARI) for(n=1,100,s=ceil(log(n)/log(10)); print1(n-prod(i=0,s-1,floor(n/10^i*1.)-10*floor(n/10^(i+1)*1.)),","))
%Y Cf. A062329.
%K base,look,nonn
%O 0,11
%A _N. J. A. Sloane_, May 07 2002
%E More terms from _Benoit Cloitre_ and _Robert G. Wilson v_, May 09 2002
|
