Take a look at the updated gist. There's an asymptote for P(H|H) when trials grow approaching p.

EDIT: Graph is empirical H|H against run length (output of the last function in a linear graph)