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

Crossrefs

Cf. A062329.

Sequence in context: A010692 A109751 A160941 * A169932 A245403 A091837

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