I was trying to investigate a probability distribution whose moments were the Catalan numbers, and came up with
qcatmo <- function(p, k=4){ (qbeta(p/2+1/2, 3/2
