

A070565


n  product of digits of n.


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,11


LINKS

Table of n, a(n) for n=0..72.


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(nprod(i=0, s1, 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,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



