OFFSET
0,2
COMMENTS
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..500
MATHEMATICA
A365771[n_] := Binomial[2*n + 1, n]/(2*n + 1)*Binomial[3*n - 1, n];
Array[A365771, 20, 0] (* Paolo Xausa, Oct 12 2024 *)
PROG
(PARI) {a(n) = binomial(2*n+1, n)/(2*n+1) * binomial(3*n-1, n)}
for(n=0, 30, print1(a(n), ", "))
(Python)
from math import comb
def A365771(n): return comb(m:=(n<<1)+1, n)*comb(m+n-2, n)//m if n else 1 # Chai Wah Wu, Oct 11 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Oct 10 2023
STATUS
approved