ついでに関数化
n!のmの指数を求める関数

> calc(n=212,m=2)
[1] 208
> calc(n=212,m=3)
[1] 102
> calc(n=212,m=5)
[1] 51
> calc(n=212,m=7)
[1] 34
> calc(n=212,m=11)
[1] 20
> calc(n=212,m=13)
[1] 17