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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A138224号 a(n)是n的最接近τ(n)的除数,是n的除数。如果是平分,取这两个除数中较小的一个。 4
1, 2, 1, 2, 1, 3, 1, 4, 3, 5, 1, 6, 1, 2, 3, 4, 1, 6, 1, 5, 3, 2, 1, 8, 1, 2, 3, 7, 1, 6, 1, 4, 3, 2, 5, 9, 1, 2, 3, 8, 1, 7, 1, 4, 5, 2, 1, 8, 1, 5, 3, 4, 1, 9, 5, 8, 3, 2, 1, 12, 1, 2, 7, 8, 5, 6, 1, 4, 3, 7, 1, 12, 1, 2, 5, 4, 1, 6, 1, 10, 3, 2, 1, 12, 5, 2, 3, 8, 1, 10, 1, 4, 3, 2, 5, 12, 1, 7, 3, 10, 1, 6 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,2
链接
例子
有四个15的除数:(1,3,5,15)。有两个除数,3和5,最接近4。由于有一个平局(4与3和5等距),我们取较小的除数3,因此a(15)=3。
MAPLE公司
A138224号:=进程(n),如果n=1,则返回(1);fi;t:=数量[tau](n);dvs:=排序(convert(numtheory[divisors](n),list));a:=op(1,dvs);对于i从2到nops(dvs),如果abs(op(i,dvs;fi;od:a;结束:seq(A138224号(n) ,n=1..120)#R.J.马塔尔2009年7月20日
数学
nd[n_]:=模[{div=除数[n]},最近[div,长度[div]][[1]];阵列[nd,110](*哈维·P·戴尔,2018年6月17日*)
黄体脂酮素
(PARI)1998年12月24日(n) ={my(pd=0,u=numdiv(n));fordiv(n,d,if(d>u,return(if(d-u)<(u-pd),d,pd));pd=d);(pd);}\\安蒂·卡图恩2021年4月1日
交叉参考
关键词
非n
作者
勒罗伊·奎特2008年3月6日
扩展
延伸超过a(15)R.J.马塔尔2009年7月20日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月20日01:46。包含373510个序列。(在oeis4上运行。)