A333690 a(n) = n*Product_{k=1..n} floor(k^((n-k)/(n-k+1))).

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

Links

Table of n, a(n) for n=1..25.

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

Adjacent sequences: A333687 A333688 A333689 * A333691 A333692 A333693

Keyword

nonn

Author

Michel Marcus, Apr 02 2020

Extensions

Definition corrected by Harvey P. Dale, Sep 13 2020

Status

approved