|
|
A196724号 |
| {1..n}(包括空集)的子集数,使得不同元素的成对乘积都是不同的。 |
|
25
|
|
|
1, 2, 4, 8, 16, 32, 58, 116, 212, 416, 720, 1440, 2340, 4680, 7920, 13024, 23328, 46656, 74168, 148336, 229856, 371424, 615304, 1230608, 1780224, 3401568, 5589360, 9468504, 14397744, 28795488, 40312128, 80624256, 131388480, 206363168, 335814288, 521401536
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
a(6)=58:在{1,2,3,4,5,6}的2^6=64个子集中,只有6个没有元素的所有成对乘积:{1,2,3,6},{2,3,4],{1,2,4,6},{1,2,3,5,6},},2,3,4,5,6{。
|
|
MAPLE公司
|
b: =proc(n,s)局部sn,m;
m: =无;
sn:=[s[],n];
`如果`(n<1,1,b(n-1,s)+`如果`(m*(m+1)/2=nops(({seq(seq(
sn[i]*sn[j],j=i+1..m+1),i=1..m)}),b(n-1,sn),0))
结束时间:
a: =proc(n)选项记忆;
b(n-1,[n])+`如果`(n=0,0,a(n-1))
结束时间:
seq(a(n),n=0..20);
|
|
数学
|
b[n_,s_]:=b[n,s]=模[{sn,m},m=长度[s];sn=附加[s,n];如果[n<1,1,b[n-1,s]+如果[m*(m+1)/2==长度[Union[Flatten[Table[sn[i]]*sn[[j]],{i,1,m},{j,i+1,m+1}]],b[n-1,sn],0]];a[n]:=a[n]=b[n-1,{n}]+如果[n==0,0,a[n-1]];表[a[n],{n,0,20}](*Jean-François Alcover公司,2017年1月31日,翻译自Maple*)
表[Length[Select[Subsets[Range[n]],UnsameQ@@Times@@@Subsets[#,{2}]&]],{n,0,10}](*古斯·怀斯曼2019年6月3日*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|