login
A333690
a(n) = n*Product_{k=1..n} floor(k^((n-k)/(n-k+1))).
0
1, 2, 3, 4, 20, 48, 112, 864, 2916, 34560, 152064, 1728000, 9360000, 108864000, 1049760000, 10668672000, 172802851200, 2184944025600, 32025036718080, 438839318937600, 6636767477760000, 108637562880000000, 1940004332259840000, 24494663395141632000, 673031429554176000000
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
Sequence in context: A012578 A012573 A268349 * A107241 A012576 A012579
KEYWORD
nonn
AUTHOR
Michel Marcus, Apr 02 2020
EXTENSIONS
Definition corrected by Harvey P. Dale, Sep 13 2020
STATUS
approved