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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A166401号 正整数n,其中(n的最大除数<=sqrt(n))除以(n的最小除数>=sqrt(n)。
1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 18, 19, 23, 25, 27, 29, 31, 32, 36, 37, 41, 43, 47, 49, 50, 53, 59, 61, 64, 67, 71, 73, 75, 79, 81, 83, 89, 97, 98, 100, 101, 103, 107, 109, 113, 121, 125, 127, 128, 131, 137, 139, 144, 147, 149, 151, 157, 162, 163, 167, 169, 173 (列表图表参考历史文本内部格式)
偏移
1,2
评论
这个序列包含所有的素数和素数幂。有关复合术语,请参见A166402号。对于那些不是素数幂的项,请参见A166403号.
此外,序列包含所有正方形-伊凡·内雷廷2016年1月12日
链接
例子
50的除数是1,2,5,10,25,50。中间的两个除数是5和10。因为5除以10,所以50就是这个序列。
MAPLE公司
过滤器:=proc(n)局部a,b;
如果issqr(n),则返回真fi;
a、 b:=选择删除(t->(t^2<=n),数字理论:-除数(n));
最小值(b)最大值(a)=0
结束进程:
选择(过滤器,[1..1000]美元)#罗伯特·伊斯雷尔2016年1月13日
数学
选择[Range[174],Divisible[(d=Divisors[#])[[n=Floor[Length[d]/2+1]]],d[[-n]]&](*伊凡·内雷廷2016年1月12日*)
黄体脂酮素
(PARI)isok(n)=my(d=除数(n),ld=if(n<2,1,d[(长度(d)+1)\2]),sd=d[长度(d;sd%ld==0;\\改编自A033676号&A033677号米歇尔·马库斯2016年1月13日
交叉参考
囊性纤维变性。A033676号,A033677号.
囊性纤维变性。A166402号,1964年1月3日.
关键词
非n
作者
勒罗伊·奎特2009年10月13日
扩展
更多术语来自马克斯·阿列克塞耶夫2010年2月23日
状态
经核准的

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

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

上次修改时间:2024年4月18日22:18 EDT。包含371782个序列。(在oeis4上运行。)