OFFSET
1,2
MATHEMATICA
m[n_]:=Floor[(n+1)/2]; z=21;
g[n_]:=Product[i*Binomial[n, i], {i, 1, m[n]}]
Table[g[n], {n, 1, z}] (* A208652 *)
Table[Gamma[1 + n]^(n/2)/BarnesG[1 + n]*((1 + (-1)^n)/2 + (1 - (-1)^n) * Sqrt[Gamma[1 + n]]/(2*Gamma[(1 + n)/2])), {n, 1, 15}] (* Vaclav Kotesovec, Apr 10 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Mar 02 2012
STATUS
approved