%I#20 2021年1月3日00:55:16
%S 1,3,1,7,3,15,8,3,1,31,19,83,1,63,43,20,8,3,1127,94,47,20,8,3,1,
%电话255201107,48,20,8,3,1511423238111,48,0,8,3102880520251,
%U 112,48,20,8,3,1204718151121558255112,482,20,8,140953719
%一枚普通硬币的N次抛投次数的N个三角形,抛投次数为r或r以上,r=1到N,N=1,2。。。向下。
%D W.Feller,《概率论及其应用导论》,第1卷,第2版,纽约:Wiley,第300页,1968年。
%H T.D.Noe,<a href=“/A050227/b050227.txt”>三角形的行数n=1..100,扁平</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/CoinTossing.html“>抛硬币</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/Run.html“>跑步</a>
%e三角形开始:
%e 1;
%e 3,1;
%e第7、3、1条;
%e 15、8、3、1;
%e 31、19、8、3、1
%e。。。
%t清除[fib];fib[n,n]=1;fib[n,k]/;k>n=0;fib[n_,k_]:=fib[n,k]=如果[k==1,1,和[fib[m,k],{m,n-k,n-1}]];表[2^n-fib[n+k+1,k],{n,1,12},{k,1,n}]//扁平(*_Jean-François Alcover_,2013年1月15日*)
%Y参考A008466。
%Y参考A050231、A050232、A050233。
%K nonn,不错,tabl
%O 1,2号机组
%A _瑞克·W·魏斯坦_
|