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
KEYWORD
AUTHOR
N. J. A. Sloane, May 07 2002
EXTENSIONS
More terms from Benoit Cloitre and Robert G. Wilson v, May 09 2002
STATUS
approved