10 FOR i = 1 TO 15
20   PRINT i;" ";catalan(i)
30 NEXT
40 END
50 SUB catalan(n)
60   catalan = 1
70   IF n <> 0 THEN catalan = ((2*((2*n)-1))/(n+1))*catalan(n-1)
80 END SUB