4 lines
198 B
R
4 lines
198 B
R
catalan <- function(n) choose(2*n, n)/(n + 1)
|
|
catalan(0:15)
|
|
[1] 1 1 2 5 14 42 132 429 1430
|
|
[10] 4862 16796 58786 208012 742900 2674440 9694845
|