OFFSET
1,2
COMMENTS
MATHEMATICA
Table[Times @@ Select[IntegerDigits[n^4], # > 0 &], {n, 60}]
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Jonathan Vos Post, Oct 23 2012
STATUS
approved