A218145 Product of the nonzero digits (in base 10) of n^3.
1, 8, 14, 24, 10, 12, 36, 10, 126, 1, 9, 112, 126, 224, 315, 216, 108, 240, 2160, 8, 108, 192, 84, 192, 300, 1470, 1296, 180, 1728, 14, 1134, 2016, 2835, 324, 2240, 4320, 450, 2240, 1215, 24, 864, 1792, 2205, 1280, 90, 3402, 144, 90, 1512, 10, 180, 192
Offset: 1
Examples
a(4) = A007954(4^3) = product of digits of 64 = 6 * 4 = 24, since none of the digits is 0. a(10) = product of nonzero digits of 1000 = 1.
Programs
-
Mathematica
Table[Times @@ Select[IntegerDigits[n^3], # > 0 &], {n, 60}] (* T. D. Noe, Oct 22 2012 *)
Comments