[過去ﾛｸﾞ] 分からない問題はここに書いてね458 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

638(1): １３２人目の素数さん [sage] 2020/03/15(日) 04:25:33.20 ID:OTl1KJku(1/7) AAS
>>635
ｎ　を　1〜２０でシミュレーションしてみた。

sim <- function(n,k=1e5){ # n:サイコロを振る回数 k:シミュレーション回数
sub <- function(n){
prod(sample(6,n,replace=TRUE))%%6==0 # n回の目の積の6で除算した剰余が0か？
}
mean(replicate(k,sub(n))) # 0となる割合を返す
}

p=sapply(1:20,function(n) sim(n))
data.frame(p)

p
1 0.16560
2 0.41369
3 0.61413
4 0.75417
5 0.84134
6 0.89669
7 0.93356
8 0.95765
9 0.97254
10 0.98093
11 0.98873
12 0.99175
13 0.99458
14 0.99611
15 0.99737
16 0.99849
17 0.99899
18 0.99924
19 0.99963
20 0.99978

---

640: １３２人目の素数さん [sage] 2020/03/15(日) 08:00:20.15 ID:OTl1KJku(2/7) AAS
>>638
1 : 1/6
2 : 5/12
3 : 133/216
4 : 325/432
5 : 6541/7776
6 : 4655/5184
7 : 261493/279936
8 : 535925/559872
9 : 9796381/10077696

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.039s