|
%I #7 Jun 26 2014 19:06:46
%S 50,38,31,27,25,23,21,20,19,18,17,16,15,15,14,14,14,13,13,13,12,12,12,
%T 11,11,11,11,11,10,10,10,10,10,10,10,9,9,9,9,9,9,9,9,8,8,8,8,8,8,8,8,
%U 8,8,8,8,8,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,6,6,6,6,6,6,6,6,6
%N Rounded percent chance that n heads appear in 2n tosses of a fair coin.
%C a(n) is also the largest percentage that k heads will appear face up in 2n tosses of a fair coin where k = 1, 2, ..., 2n.
%F a(n) = round(100*C(2n,n)/4^n).
%t Table[Round[100*Binomial[2 n, n]/4^n], {n, 100}] (* _Wesley Ivan Hurt_, Jun 24 2014 *)
%o (PARI) for(n=1,100,print1(round((100*(2*n)!)/((n!)^2*4^n)),", "))
%K nonn
%O 1,1
%A _Derek Orr_, Jun 24 2014
|
