OFFSET
0,13
MAPLE
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
KEYWORD
nonn,base,easy
AUTHOR
Felice Russo, Oct 11 2010
STATUS
approved