Table[sum((n choose k) * 0.52^k * (1-0.52)^(n-k), k=6, n), {n, 25}]