login
A070565
n - product of digits of n.
8
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
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 * A376257 A169932 A245403
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