A053667 - OEIS

%I #13 May 30 2021 10:48:51

%S 0,1,4,9,6,10,18,36,24,8,0,2,16,54,54,20,60,144,24,18,0,16,128,90,210,

%T 60,252,126,224,32,0,54,0,0,30,20,108,162,64,10,0,48,168,288,162,0,12,

%U 0,0,0,0,0,0,0,108,0,54,216,216,96,0,42,384,1458,0,80,360,1152,192,168,0,0,160

%N Product of digits of n^2.

%H Harvey P. Dale, <a href="/A053667/b053667.txt">Table of n, a(n) for n = 0..1000</a>

%F a(n) = A007954(n^2). - _Michel Marcus_, Jun 06 2014

%e a(7)=36 because 7^2=49 and 4*9=36.

%t Times@@@IntegerDigits[Range[0,100]^2] (* _Harvey P. Dale_, May 30 2021 *)

%o (PARI) a(n) = my(d = digits(n^2)); prod(i=1, #d, d[i]); \\ _Michel Marcus_, Jun 06 2014

%K easy,nonn,base

%O 0,3

%A _Enoch Haga_, Feb 17 2000