Según esta página, hay una forma cerrada de expresión para este problema.
...la probabilidad, S, de ser K o más cabezas en una fila en N
los intentos independientes (donde p es la probabilidad de jefes y q=1-p es
la probabilidad de que las colas) es:
$$
S(N,K) = p^K\sum_{T=0}^\infty {N-(T+1)K\elegir
T} (qp^K)^T-\sum_{T=1}^\infty {N-TK\elegir T} (qp^K)^T
$$
Con la inusual a la convención que el ${A\choose B}= 0$$A < B$. La evaluación numérica me da 0.0441372 para el caso de $p=1/2$, $N=100$, $K=10$.
Editar
Trabajarla un poco para deshacerse de esa extraña convención sólo cambia el límite superior.
$$
p^k \sum _{t=0}^{\frac{n-k}{k+1}} \binom{n-k (t+1)}{t} \left(-q p^k\right)^t-\sum _{t=1}^{\frac{n}{k+1}} \binom{n-k t}{t} \left(-q p^k\right)^t
$$
El siguiente código de Mathematica da números, sólo tiene que enchufar en p, n, k en la última sustitución de bits.
-\!\(
\*UnderoverscriptBox[\(\[Sum]\), \(t = 1\),
FractionBox[\(n\), \(1 + k\)]]\(
\*SuperscriptBox[\((\(-
\*SuperscriptBox[\(p\), \(k\)]\)\ q)\), \(t\)]\ Binomial[n - k\ t,
t]\)\) + p^k \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(t = 0\),
FractionBox[\(\(-k\) + n\), \(1 + k\)]]\(
\*SuperscriptBox[\((\(-
\*SuperscriptBox[\(p\), \(k\)]\)\ q)\), \(t\)]\ Binomial[
n - k\ \((1 + t)\), t]\)\) //. {k -> 10, n -> 100, q -> 1 - p,
p -> 1/2} // N