>>5
(5)を乱数発生させてシミュレーション
> data.frame(n,p)
n p
1 3 0.166247
2 4 0.291301
3 5 0.383345
5回が最小値と推測。