

A171765


a(n) = 0 if n <= 10; for n >= 11, a(n) = product of digits of n.


5



0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 0, 3, 6, 9, 12, 15, 18, 21, 24, 27, 0, 4, 8, 12, 16, 20, 24, 28, 32, 36, 0, 5, 10, 15, 20, 25, 30, 35, 40, 45, 0, 6, 12, 18, 24, 30, 36, 42, 48, 54, 0, 7, 14, 21, 28, 35, 42, 49, 56, 63, 0, 8, 16
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,13


LINKS

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


MATHEMATICA

Table[If[n<11, 0, Times@@IntegerDigits[n]], {n, 0, 100}] (* Harvey P. Dale, Aug 02 2016 *)


PROG

(PARI) a(n)=if(n<=9, 0, n=digits(n); prod(i=1, #n, n[i])) \\ Charles R Greathouse IV, Aug 25 2014


CROSSREFS

Cf. A007954.
Sequence in context: A088118 A088117 A257850 * A080464 A257297 A035930
Adjacent sequences: A171762 A171763 A171764 * A171766 A171767 A171768


KEYWORD

nonn,base,easy


AUTHOR

Felice Russo, Oct 11 2010


STATUS

approved



