%I#10 2014年2月12日21:55:04
%S 0,0,0,10,0:0,0,2,0,00,6,2,0,14,8,0,,0,0,0,26,22,16,4,0,0-0,044,
%电话:48,46,20,6,0,0,,0,068,92108,66,30,0,0100160222174106,36,8,0,
%电话:0,0140260414396298142,48,0,0,0190400720810728440
%三角数组:T(N,k)是{1,…,N}的k元素子集S的数目,使得平均值(S)不等于中值(S)。
%C行总和:A212140。
%e前7行:
%第0页
%e 0…0
%e 0…0…0
%e 0…0…2…0
%e 0…0…6…2…0
%e 0…0…14…8…4…0
%e 0…0…26…22…16…4…0
%e由T(5,3)计数的子集为{1,2,4}、{1,2,5}、}1,3,4},{1,4,5},}2,3,5},{2,4,5{。
%t t[n_,k_]:=t[n,k]=计数[Map[Median[#]=平均值[#]&,子集[Range[n],{k}]],错误]
%t压扁[表[t[n,k],{n,1,12},{k,1,n}]]
%t表格形式[表格[t[n,k],{n,1,12},{k,1,n}]]
%t s[n]:=总和[t[n,k],{k,1,n}]
%t表格[s[n],{n,1,20}](*A212140*)
%t%/2(*A212149*)
%t(*_Peter J.C.Moses_,2012年5月1日*)
%Y参考A212139。
%K nonn,表
%O 1,9型
%A_Clark Kimberling_,2012年5月6日
|