A272165 a(n) = Product_{k=0..n} (k*n-k)^k.
0, 4, 6912, 1632586752, 92771293593600000, 1922167968750000000000000000, 20386493620375898676722605059420979200000, 147691962494584259939724821292542617401603191419699200000
Offset: 1
Crossrefs
Cf. A272166.
Programs
-
Mathematica
Table[Product[(k*n-k)^k, {k, 1, n}], {n, 1, 10}]
Formula
a(n) ~ A * n^(n^2 + n + 1/12) / exp((n^2 + 2*n + 3)/4), where A = A074962 is the Glaisher-Kinkelin constant.