A014257 Product of digits of 2^n.
1, 2, 4, 8, 6, 6, 24, 16, 60, 10, 0, 0, 0, 144, 576, 2016, 2700, 0, 384, 5120, 0, 0, 0, 0, 24696, 21600, 0, 18816, 691200, 0, 0, 1032192, 11757312, 27993600, 6096384, 39191040, 64012032, 15240960, 0, 387072000, 0, 0, 0, 0, 0, 0, 0, 0, 0, 125971200, 0, 4180377600, 0, 0, 0
Offset: 0
Programs
-
Mathematica
Array[ Times @@ IntegerDigits[ 2^# ]&, 100 ]
-
PARI
a(n) = vecprod(digits(2^n)); \\ Michel Marcus, Nov 18 2019
Extensions
More terms from Michel Marcus, Nov 18 2019