p <- c(3,4,5,5,4,3)/36
2/9 + sum(p^2/(p+1/6))