>>711
100回目までを計算してみた。

> sapply(1:100,bg)
[1] 1 6 12 18 24 30 36 42 48 54 60 66 72 78 84 90 96 102 108 114
[21] 120 126 132 138 144 150 156 162 168 174 180 186 192 198 204 210 216 222 228 234
[41] 240 246 252 258 264 270 276 282 288 294 300 306 312 318 324 330 336 342 348 354
[61] 360 366 372 378 384 390 396 402 408 414 420 426 432 438 444 450 456 462 468 474
[81] 480 486 492 498 504 510 516 522 528 534 540 546 552 558 564 570 576 582 588 594

bg <- function(x,print=FALSE){ # big gambling
f <- function(n,m=x,p=1/6) choose(n-1,m-1)*p^(m-1)*(1-p)^(n-m)*p
nn=1:(10*x)
y=optimize(function(n) f(n),nn,maximum=TRUE)$maximum
if(print){
plot(nn,sapply(nn,f),bty='l',pch=19)
yy=c(floor(y),ceiling(y))
cat(c(f(yy[1]),f(yy[2])),'\n')
}
return(floor(y))
}
sapply(1:100,bg)