OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..215
FORMULA
a(n) = n^n*Gamma((3*n+1)/2)/Gamma((n+1)/2). - Emeric Deutsch, Jan 23 2006
MAPLE
a:=n->n^n*GAMMA(3*n/2+1/2)/GAMMA(n/2+1/2): seq(a(n), n=1..18); # Emeric Deutsch, Jan 23 2006
a:=n->mul(sum (j-k+n, j=1..n), k=1..n): seq(a(n), n=1..13); # Zerinvary Lajos, Jun 04 2007
MATHEMATICA
Array[#^#*Gamma[3 #/2 + 1/2]/Gamma[#/2 + 1/2] &, 13] (* Michael De Vlieger, Feb 19 2019 *)
PROG
(Magma) [Round(n^n*Gamma((3*n+1)/2)/Gamma((n+1)/2)): n in [1..15]]; // G. C. Greubel, Feb 20 2019
(Sage) [n^n*gamma((3*n+1)/2)/gamma((n+1)/2) for n in (1..15)] # G. C. Greubel, Feb 20 2019
(PARI) a(n) = prod(k=0, n-1, n*(n+1)/2 + k*n); \\ Michel Marcus, Feb 20 2019
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Mar 25 2004
EXTENSIONS
More terms from Ray G. Opao, Mar 29 2004
More terms from Emeric Deutsch, Jan 23 2006
More terms from Zerinvary Lajos, Jun 04 2007
STATUS
approved