OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n=1..100
FORMULA
a(n) = Product_{k=0..n-1} (2*k + n*(n-1) + 1). - Harry J. Smith, Jul 30 2009
a(n) = (Gamma(2*binomial(n+1, 2) + 1)*Gamma(binomial(n, 2) + 1))/(2^n*Gamma(binomial(n+1, 2) + 1)*Gamma(2*binomial(n, 2) + 1)). - G. C. Greubel, May 06 2022
EXAMPLE
a(3) = 7*9*11 = 693.
MATHEMATICA
Times@@@FoldPairList[TakeDrop, Range[1, len^2+len-1, 2], Range[len]]] (* The program uses the FoldPairList and TakeDrop functions from Mathematica version 10 *) (* Harvey P. Dale, Jul 29 2015 *)
Table[(Gamma[2*Binomial[n+1, 2] +1]*Gamma[Binomial[n, 2] +1])/(2^n*Gamma[Binomial[n +1, 2] +1]*Gamma[2*Binomial[n, 2] +1]), {n, 30}] (* G. C. Greubel, May 06 2022 *)
PROG
(PARI) { for (n=1, 100, b=n^2 - n + 1; write("b062032.txt", n, " ", prod(k=0, n - 1, b + 2*k)) ) } \\ Harry J. Smith, Jul 30 2009
(SageMath) [(gamma(2*binomial(n+1, 2) +1)*gamma(binomial(n, 2) +1))/(2^n*gamma(binomial(n+1, 2) +1)*gamma(2*binomial(n, 2) +1)) for n in (1..30)] # G. C. Greubel, May 06 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 02 2001
EXTENSIONS
More terms from Jason Earls, Jun 08 2001
STATUS
approved