搜索: 编号:a051424
|
|
|
|
1, 1, 2, 3, 4, 6, 7, 10, 12, 15, 18, 23, 27, 33, 38, 43, 51, 60, 70, 81, 92, 102, 116, 134, 153, 171, 191, 211, 236, 266, 301, 335, 367, 399, 442, 485, 542, 598, 649, 704, 771, 849, 936, 1023, 1103, 1185, 1282, 1407, 1535, 1662, 1790, 1917, 2063, 2245, 2436
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
链接
|
|
|
配方奶粉
|
log a(n)~(2*Pi/sqrt(6))sqrt(n/log n)-埃里克·施密特2013年7月4日
|
|
例子
|
a(4)=4,因为除2+2外,4的所有分区都由相对质数组成。
a(6)=7个具有两两互质部分的分区:(111111),(21111),(3111)-古斯·怀斯曼2018年4月14日
|
|
MAPLE公司
|
带有(数字理论):
b: =proc(n,i,s)选项记忆;局部f;
如果n=0或i=1,则为1
elif i<2,然后为0
否则f:=系数集(i);
b(n,i-1,select(x->is(x<i),s))+`如果`(i<=n和f相交s={},
b(n-i,i-1,选择(x->是(x<i),s联合f)),0)
fi(菲涅耳)
结束时间:
a: =n->b(n,n,{}):
|
|
数学
|
b[n_,i_,s_]:=b[n,i,s]=模[{f},如果[n==0|i==1,1,如果[i<2,0,f=FactorInteger[i][[All,1]];b[n,i-1,选择[s,#<i&]]+如果[i<=n&&f~交集~s=={},b[n-i,i-1;选择[s~并集~f,#<i&]],0]]];a[n]:=b[n,n,{}];表[a[n],{n,0,54}](*Jean-François Alcover公司2013年10月3日,翻译自Maple,之后阿洛伊斯·海因茨*)
|
|
黄体脂酮素
|
(哈斯克尔)
a051424=长度。过滤器f。分区,其中
f[]=正确
f(p:ps)=(all(==1)$map(gcd p)ps)&&f ps
分区n=ps 1 n,其中
ps x 0=[[]]
ps x y=[t:ts | t<-[x.y],ts<-ps t(y-t)]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
搜索在0.004秒内完成
|