搜索: a053212-id:a053212
|
|
|
|
1, 2, 3, 4, 6, 5, 11, 7, 8, 9, 23, 10, 31, 15, 13, 12, 58, 14, 74, 16, 18, 29, 122, 17, 25, 40, 21, 22, 224, 19, 267, 20, 38, 69, 33, 24, 453, 89, 49, 26, 636, 28, 737, 43, 30, 141, 995, 27, 53, 35, 84, 57, 1523, 34, 59, 36, 108, 257, 2244, 32, 2528, 310, 41, 37, 77, 52
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
a(23)=122,因为d(n)(A000005美元(n) )在第一次达到23之前取121个不同的值(n=2^22)。
|
|
黄体脂酮素
|
(哈斯克尔)
导入数据。列表(elemIndex);导入数据。也许(来自Just)
a064787=(+1)。来自Just。(`elemIndex`a053212_list)
|
|
交叉参考
|
|
|
关键词
|
容易的,非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 4, 6, 12, 16, 24, 36, 48, 60, 64, 120, 144, 180, 192, 240, 360, 576, 720, 840, 900, 960, 1024, 1260, 1296, 1680, 2520, 2880, 3072, 3600, 4096, 5040, 5184, 6300, 6480, 6720, 7560, 9216, 10080, 12288, 14400, 15120, 15360, 20160, 25200, 25920, 27720, 32400, 36864, 44100
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
参考文献
|
J.Roberts,《整数的诱惑》,数学。美国协会,1992年,第86页。
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
|
|
链接
|
罗恩·布朗,给定除数的最小数《数论杂志》116:1(2005),第150-158页。
J.Roberts,整数的诱惑,第81、86页的带注释扫描件,附注释。
Anna K.Savvopoulou和Christopher M.Wedrychowicz,关于具有给定除数的最小数,《拉马努詹期刊》,2015年,第37卷,第51-64页。
|
|
MAPLE公司
|
对于n从1到10^5 do
t: =理论数量:-τ(n);
如果未赋值(B[t]),则B[t]:=n fi;
日期:
|
|
数学
|
A007416号=收割[s=1,s<=10^5,s++,如果[Abs[Product[DivisorSigma[0,i]-DivisiorSigma[0,s],{i,1,s-1}]>0,打印[s];母猪[s]]][[2,1]](*Jean-François Alcover公司2012年11月19日,巴黎之后*)
|
|
黄体脂酮素
|
(PARI)对于(s=1,10^6,如果(abs(prod(i=1,s-1,numdiv(i)-numdiv(s)))>0,打印1(s,“,”))
(PARI)是(n)=my(d=numdiv(n));对于(i=1,n-1,如果(numdiv(i)==d,返回(0)));1 \\查尔斯·R·Greathouse IV2013年2月20日
(PARI)
A283980型(n,f=因子(n))=prod(i=1,#f~,my(p=f[i,1]);如果(p==2,6,下一素数(p+1))^f[i,2])
A025487do(e)=我的(v=列表([1,2]),i=2,u=2^e,t);当(v[i]!=u时,如果(2*v[i]<=u,则列表输入(v,2*v[i]);t吨=A283980型(v[i]);如果(t<=u,列表输入(v,t));i++);集合(v)
winnow(v,lim=v[#v])=my(m=Map(),u=List());对于(i=1,#v,如果(v[i]>lim,break);我的(t=numdiv(v[i]));如果(!mapisdefined(m,t),则mapput(m,t,0);列表(u,v[i]));m=0;Vec(u)(车辆)
(哈斯克尔)
a007416 n=a007416列表!!(n-1)
a007416_list=f 1[]其中
f x ts=如果tau`elem`ts,则f(x+1)ts其他x:f(x+1)(tau:ts)
其中tau=a000005'x
|
|
交叉参考
|
|
|
关键词
|
非n,容易的,美好的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A090128号
|
| sigma(k)的不同值,即除数之和,按k的增长顺序排列。 |
|
+10 1
|
|
|
1, 3, 4, 7, 6, 12, 8, 15, 13, 18, 28, 14, 24, 31, 39, 20, 42, 32, 36, 60, 40, 56, 30, 72, 63, 48, 54, 91, 38, 90, 96, 44, 84, 78, 124, 57, 93, 98, 120, 80, 168, 62, 104, 127, 144, 68, 126, 195, 74, 114, 140, 186, 121, 224, 108, 132, 180, 234, 112, 128, 252, 171, 156, 217
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
数学
|
t=表[DivisorSigma[1,w],{w,100}];u=联合[t];uu=并集@表[Min[Flatten[Position[t,u[[j]]]],{j,Length[u]}];表[t[[uu[[j]]],{j,长度[uu]}]
删除重复项[DivisorSigma[1,Range[100]](*哈维·P·戴尔,2018年12月1日*)
|
|
交叉参考
|
|
|
关键词
|
非n,容易的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 3, 7, 12, 28, 31, 60, 91, 124, 168, 127, 360, 403, 546, 508, 744, 1170, 1651, 2418, 2880, 2821, 3048, 2047, 4368, 3751, 5952, 9360, 9906, 8188, 12493, 8191, 19344, 15367, 22568, 22506, 24384, 28800, 26611, 39312, 32764, 51181, 59520, 49128, 79248, 99944, 92202, 112320, 116281, 106483, 160797
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
|
|
数学
|
(*列表minDiv[n,b]中的第d个元素是最小的数字k<=n,正好有d<=b个除数,否则为零。只要任一不等式失败,计算就会停止。*)
最小分压[n_,b_]:=
模块[{list=Array[0&,b],k=1,d},
而[k<=n,d=DivisorSigma[0,k];
如果[d<=b&&list[[d]]==0,list[[d]]=k];
如果[d<=b,k++,k=n+2]];列表]
a256259【n,b】:=
映射[DivisorSigma[1,#]&,排序[Select[minDiv[n,b],#!=0 &]]]
a256259[100000,300](*计算序列的前60个元素*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 2, 6, 4, 8, 12, 12, 12, 4, 56, 24, 36, 12, 48, 120, 216, 144, 120, 60, 60, 64, 236, 36, 384, 840, 360, 192, 528, 496, 944, 144, 1116, 180, 240, 840, 1656, 864, 2208, 2112, 720, 240, 4800, 5040, 720, 1800, 4680, 4464, 7236, 1260, 720, 576, 3744, 5040, 5040
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
搜索在0.005秒内完成
|