OFFSET
1,2
MATHEMATICA
Table[n*Product[Floor[k^((n-k)/(n-k+1))], {k, n}], {n, 30}] (* Harvey P. Dale, Sep 13 2020 *)
PROG
(PARI) a(n) = n*prod(k=2, n-1, floor(k^((n-k)/(n-k+1))));
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Apr 02 2020
EXTENSIONS
Definition corrected by Harvey P. Dale, Sep 13 2020
STATUS
approved