%I #8 Nov 18 2019 10:25:22
%S 1,2,4,8,6,6,24,16,60,10,0,0,0,144,576,2016,2700,0,384,5120,0,0,0,0,
%T 24696,21600,0,18816,691200,0,0,1032192,11757312,27993600,6096384,
%U 39191040,64012032,15240960,0,387072000,0,0,0,0,0,0,0,0,0,125971200,0,4180377600,0,0,0
%N Product of digits of 2^n.
%t Array[ Times @@ IntegerDigits[ 2^# ]&, 100 ]
%o (PARI) a(n) = vecprod(digits(2^n)); \\ _Michel Marcus_, Nov 18 2019
%Y Cf. A000079, A007377.
%K nonn,base,easy
%O 0,2
%A _N. J. A. Sloane_.
%E More terms from _Michel Marcus_, Nov 18 2019
|