- 面白い問題おしえて〜な 31問目
366 ：１３２人目の素数さん[sage]：2020/02/14(金) 21:48:27.27 ID:R20D62da - n ＝１〜７で虱潰しにプログラムに数えさせて頻度を出してみた。
> data.frame(n,p)
n p
1 1 0.3750000
2 2 0.3125000
3 3 0.2734375
4 4 0.2460938
5 5 0.2255859
6 6 0.2094727
7 7 0.1963806
| - 面白い問題おしえて〜な 31問目
367 ：１３２人目の素数さん[sage]：2020/02/14(金) 22:26:53.90 ID:R20D62da - C[2n+1,n]/2^(2n+1)
に代入すると、
> choose(2*n+1,n)/(2^(2*n+1))
[1] 0.3750000 0.3125000 0.2734375 0.2460938 0.2255859 0.2094727 0.1963806
同値。プログラムでのカウント漏れはなさそう。
|
|