%I#28 2021年2月26日20:11:46

%S 2,3,4,5,6,7,9,10,11,13,14,15,17,19,20,21,22,23,25,26,28,29,31,33,34，

%电话：35,37,38,39,41,42,43,44,46,47,49,51,52,53,55,57,58,59,61,62,65,66,67，

%U 68、69、71、73、74、76、77、78、79、82、83、85、86、87、88、89、91

%N非sqrt（N-1）-光滑的数字N：N（=A006530（N））>=sqrt。

%如果我们定义一个除数d|n是优除数，如果d>=n/d，那么优除数由A038548计数，并由A161908列出。这个序列列出了所有具有上素数的数，当它存在时，它是唯一的（A341676）。例如，42在序列中是因为它有一个素数7，它大于商42/7=6_Gus Wiseman_，2021年2月19日

%D.H.Greene和D.E.Knuth，算法分析数学；见第95-98页。

%H Robert Israel，n的表，n=1..10000的a（n）</a>

%H Beeler，M.、Gosper，R.W.和Schroeppel，R.，<a href=“http://www.inwap.com/pdp10/hbaker/hakmem/number.html#项目29“>HAKMEM，项目29</a>

%F A001248和A064052的联合。-_Gus Wiseman_，2021年2月24日

%p N:=1000:#获取所有项<=N

%p素数：=选择（isprime，[2，seq（2*i+1，i=1..floor（（N-1）/2））]）：

%pS:={seq（seq（m*p，m=1..min（p，N/p）），p=素数）}：

%p排序（转换（S，列表））；#_罗伯特·伊斯雷尔，2015年9月1日

%t选择[Range[2，91]，FactorInteger[#][[-1，1]]>=Sqrt[#]&]（*_Ivan Neretin_，2015年8月30日*）

%Y参考A006530、A063762。

%A063539的Y补码。A001358的超序列（半素数）。

%Y严格的高级版本是A064052（补码：A048098），带有关联的唯一素数A341643。

%Y奇数而非素数除数的情况是A116883（补码：A116882）。

%Y也是A341591的非零（上素除数）。

%Y项的唯一上等素数是A341676。

%Y A001221计算素数除数，求和A001414。

%Y A033677选择最小的上除数。

%Y A038548计算上级（也包括下级）除数。

%Y A161908列出了上级除数。

%Y-下级：A033676、A063962、A066839、A161906、A217581、A333749、A333750。

%Y-高级：A051283、A059172、A070038、A072500、A341592、A341693、A341675。

%Y-严格较差：A056924、A060775、A070039、A333805、A3338006、A341596、A346674、A341677。

%Y-绝对优越：A140271、A238535、A341594、A341585、A346642、A341644、A34645/A341646、A341673。

%Y参考A000005、A001055、A001222、A001248、A020639、A056239、A112798。

%K nonn，简单

%O 1,1号机组

%A _N.J.A.Sloane，2001年8月14日