第2スターリング数

いろいろ数え上げる

数え上げ # 順列 permN<-function(N=10,k=3){ return(exp(lgamma(N+1)-lgamma((N-k)+1))) } 組み合わせ combN<-function(N=10,k=3){ return( exp(lgamma(N+1)-lgamma((N-k)+1)-lgamma(k+1)) ) } 重複順列 repPermN<-function(N=10,k=3){ return(N^k) } 重複…