>>127
確率の列は間違っているので訂正

> cbind(回数=idx,確率=p[idx])
回数 確率
[1,] 60 0.0136829706
[2,] 59 0.0141644985
[3,] 61 0.0132055172
[4,] 58 0.0146484882
[5,] 62 0.0127335569
[6,] 57 0.0151331206
[7,] 63 0.0122683276
[8,] 56 0.0156163576
[9,] 64 0.0118108992
[10,] 55 0.0160959310
[11,] 65 0.0113621869
[12,] 66 0.0109229633
[13,] 54 0.0165693322
[14,] 67 0.0104938707
[15,] 53 0.0170338039
[16,] 68 0.0100754329
[17,] 52 0.0174863338
[18,] 69 0.0096680663
[19,] 70 0.0092720900
[20,] 51 0.0179236512