A218215 Product of the nonzero digits (in base 10) of n^4.
1, 6, 8, 60, 60, 108, 8, 216, 180, 1, 96, 252, 480, 576, 300, 2700, 240, 1512, 18, 6, 1152, 1440, 4032, 2646, 1620, 45360, 240, 4320, 784, 8, 540, 6720, 720, 2916, 300, 13608, 1344, 1440, 288, 60, 6720, 972, 768, 36288, 240, 94080, 96768, 2880, 6720, 60, 2520, 756, 16128, 3600, 2700, 186624, 150, 3888, 252, 108
Offset: 1
Programs
-
Mathematica
Table[Times @@ Select[IntegerDigits[n^4], # > 0 &], {n, 60}]
Comments