OFFSET
0,4
MATHEMATICA
Table[Round[Product[(n-i)^(1+Log[1+i]), {i, 1, n-1}]], {n, 0, 20}] (* Harvey P. Dale, Sep 14 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Olivier Gérard, Jun 23 2001
EXTENSIONS
Corrected by and previous Mathematica program replaced by Harvey P. Dale, Sep 14 2016
STATUS
approved