cp's OEIS Frontend

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

%I A171765 #9 Jan 11 2020 06:45:04
%S A171765 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,
%T A171765 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,
%U A171765 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,24,32,40,48,56,64,72,0,9,18,27,36,45,54,63,72,81,0,0,0,0,0,0,0,0,0,0,0
%N A171765 a(n) = 0 if n <= 10; for n >= 11, a(n) = product of digits of n.
%p A171765 A171765 := proc(n)
%p A171765     if n<= 10 then
%p A171765         0;
%p A171765     else
%p A171765         A007954(n);
%p A171765     end if:
%p A171765 end proc: # _R. J. Mathar_, Jan 11 2020
%t A171765 Table[If[n<11,0,Times@@IntegerDigits[n]],{n,0,100}] (* _Harvey P. Dale_, Aug 02 2016 *)
%o A171765 (PARI) a(n)=if(n<=9,0,n=digits(n); prod(i=1,#n,n[i])) \\ _Charles R Greathouse IV_, Aug 25 2014
%Y A171765 Cf. A007954.
%K A171765 nonn,base,easy
%O A171765 0,13
%A A171765 _Felice Russo_, Oct 11 2010