A070565 n - product of digits of n.

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, 14, 13, 12, 11, 30, 28, 26, 24, 22, 20, 18, 16, 14, 12, 40, 37, 34, 31, 28, 25, 22, 19, 16, 13, 50, 46, 42, 38, 34, 30, 26, 22, 18, 14, 60, 55, 50, 45, 40, 35, 30, 25, 20, 15, 70, 64, 58

Offset: 0

Author

N. J. A. Sloane, May 07 2002

Keywords

• base
• look
• nonn

Examples

			a(20) = 20 - 2*0 = 20, a(22) = 22 - 2*2 = 18.
		

Links

• Robert Price, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A007954, A062329.

Programs

Mathematica

Table[n - Times @@ IntegerDigits[n], {n, 0, 75}]

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.)),", "))

PARI

a(n) = if (n==0, 0, n - vecprod(digits(n))); \\ Michel Marcus, Jul 22 2025

Extensions

More terms from Benoit Cloitre and Robert G. Wilson v, May 09 2002