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,11

Links

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

Example

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A007954, A062329.

Sequence in context: A010692 A109751 A160941 * A376257 A169932 A245403

Adjacent sequences: A070562 A070563 A070564 * A070566 A070567 A070568

Keyword

base,look,nonn

Author

N. J. A. Sloane, May 07 2002

Extensions

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

Status

approved