editing
approved
editing
approved
Table[Product[Product[(3*j + 1)!/(k + j)!, {j, 0, k-1}], {k, 1, n}], {n, 1, 0, 12}]
FoldList[Times, 1, Table[Product[(3*j + 1)!/(n + j)!, {j, 0, n - 1}], {n, 1, 12}]]
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
b:= proc(n) option remember; `if`(n<2, 1, b(n-1)*
(n-1)!*(3*n-2)!/((2*n-2)!*(2*n-1)!))
end:
a:= proc(n) a(n):=`if`(n=0, 1, a(n-1)*b(n)) end:
seq(a(n), n=0..12); # Alois P. Heinz, Mar 04 2021
proposed
editing
editing
proposed
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/AlternatingSignMatrix.html">Alternating Sign Matrix</a>.
Wikipedia, <a href="https://en.wikipedia.org/wiki/Barnes_G-function">Barnes G-function</a>.
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/AlternatingSignMatrix.html">Alternating Sign Matrix</a>
Cf. A005130.