登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
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
评论
{1..n}的子集数,使得每对无序(不一定是不同的)元素具有不同的乘积A325860型(n) ●●●●-古斯·怀斯曼2019年6月3日
链接
福斯托·A·C·卡里博尼,n=0..50时的n,a(n)表
例子
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日*)
交叉参考
子集情况是196724英镑(此序列)。
最大情况是A325859型.
整数分区情况是A325856型.
严格整数分区的情况是A325855型.
反例的Heinz数由下式给出A325993型.
关键词
非n
作者
阿洛伊斯·海因茨2011年10月6日
扩展
姓名编辑人古斯·怀斯曼2019年6月3日
a(33)-a(35)来自福斯托A.C.卡里博尼2020年10月5日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|转换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月28日08:12。包含371236个序列。(在oeis4上运行。)