%I#10 2012年12月24日20:43:14
%S 2,6,4,14,14,8,30,38,30,16,62,90,86,62,321262002181126,64254,
%电话:4285164743742541285108961170115698675858551025610221850,
%电话:25762698243621015261022512204637865554611857704996405830620461024
%N a(N,k)=2^N乘以长度为N的随机二进制字中长度为k的不同子字的平均数(prob 0=prob 1=1/2),N>=1,1<=k<=N;按行读取三角形。
%H Donatien Bénéat,<a href=“/A184364/b184364.txt”>三角形的行n=1..20,扁平</a>
%e例如,设n=3,k=2。
%e(电子)-------------------------------
%e长度为2的不同子单词的字数
%e(电子)-------------------------------
%e 000 1
%电话001 2
%e 010 2号
%e 011 2号
%e 100 2
%e 101 2
%e 110 2
%e 111 1号
%e(电子)----------
%e总计:14=a(3,2)
%t nbSubWords[m_,k_]:=长度[DeleteDuplicates[Partition[m,k,1]];
%t a[n_,k_]:=加号@@(nbSubWords[#,k]&/@元组[{0,1},n])
%K nonn,表
%O 1,1号机组
%A Donatien Bénéat,2012年12月24日