22/04/22 19:07:46 +6xIP21g.net
改題
小さいサイコロをn個、大きいサイコロを1個振る。
大きいサイコロの出目が、小さいサイコロn個の出目の平均より大きい確率P[n]を求めよ。
> sapply(1:30,Calc)|> MASS::fractions()
[1] 5/12 11/24 17/36
[4] 3727/7776 11275/23328 35/72
[7] 273271/559872 263826/538877 22465/45777
[10] 9553/19429 1107503/2248891 23423/47499
[13] 235823/477669 11966881/24214970 37012/74827
[16] 20211/40828 139723/282051 285081/575105
[19] 1052533/2122068 32577/65645 2034184/4097013
[22] 1032951/2079509 881624/1774123 2761225/5554378
[25] 10360916/20834245 230743/463836 14356/28849
[28] 1717324/3450271 2946820/5918189 690830/1387137