OFFSET
1,3
COMMENTS
Terms from Robert G. Wilson v.
MATHEMATICA
a = {}; Do[b = Apply[Times, IntegerDigits[n]]; a = Append[a, If[b != 0, n!/b, 0]], {n, 1, 25}]; a (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 05 2002
EXTENSIONS
Offset corrected and title clarified by Sean A. Irvine, Dec 16 2023
STATUS
approved