Usando la fórmula mostrada en MathWorld: Rp(r,n)=n∑i=rcpi,Fp(r,s)=prsr(1−ps)1−s+(1−p)prsr+1=∞∑i=rcpisi, para las elecciones p=1/2, r=10, n=104, usando Mathematica, obtengo la probabilidad 0.992583894386550539937750988550958213704911458106343787566812855013197695….
Esto también se puede expresar como 1−F(10)104+22104, y en general, para n lanzamientos de moneda justa, la probabilidad de obtener al menos una secuencia de r caras consecutivas es 1−F(r)n+22n, donde F(r)n es un número de Fibonacci r-step que satisface la relación de recurrencia F(r)n={0,n≤0,∑ri=1F(r)n−i,n≥1, de la cual la secuencia de Fibonacci familiar corresponde a r=2. Esto a su vez puede escribirse como 1−12n[ρn+1(ρ−1)(r+1)ρ−2r], donde [⋅] representa la función de entero más cercano, y ρ>1 es la raíz positiva no trivial de ρr+1−2ρr+1=0. En tu caso, r=10 da ρ≈1.9990186327101011386634092391291528618543100760622.
Una aproximación burda usando una distribución de Poisson es posible. Notamos que para una moneda justa la probabilidad de 10 caras consecutivas es λ=1/1024. Este es nuestro parámetro de tasa de "evento raro". Entonces, si tratamos los lanzamientos de moneda como un proceso de Poisson, vemos que la probabilidad de que ocurra al menos un evento en 104 observaciones (ignorando la dependencia) es Pr Esto sobreestima la verdadera probabilidad porque, como sabemos, las secuencias de 10 lanzamientos no son independientes.