%I#53 2022年1月5日12:45:56

%S 1,4,8,9,12,16,18,24,25,27,30,32,36,40,45,48,49,50,54,56,60,63,64,70，

%电话：72,75,80,81,84,90,96,98100105112120121125128132135，

%电话：140144147150154160162165168169175176180182189192195

%N是sqrt（k）-smooth的数字k：如果p|k，那么当p是素数时p^2<=k。

%C A006530（a（n））^2_Reinhard Zumkeller，2011年10月12日

%C这个集合（例如S）具有密度d（S）=1-log（2）和乘法密度m（S）=1-exp（-Gama）。乘法密度：设A是一组数字，A（x）={k在A|gpf（k）<=x}中，其中gpf_Benoit Cloitre_，2002年6月12日

%H T.D.Noe和William A.Tedeschi，n的表，n的A（n）=1..100000

%H H.Davenport和P.Erdős，<a href=“网址：http://www.renyi.hu/~p_erdos/1951-07.pdf“>关于正整数序列</a>，《印度数学学会杂志》第15期（1951年），第19-24页。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/GreatestPrimeFactor.html“>最重要的因素</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/RoundNumber.html“>整数</a>

%t gpf[n_]：=系数整数[n][[-1，1]]；A048098={}；对于[n=1，n<=200，n++，If[gpf[n]<=Sqrt[n]，AppendTo[A048098，n]]]；A048098（*_Jean-François Alcover，2012年1月26日*）

%o（PARI）

%o打印1（1，“，”）；对于（n=2，1000，如果（vecmax（因子（n）[，1]）<=sqrt（n），打印1（n，“，”））

%o（哈斯克尔）

%o a048098 n=a048098_列表！！（n-1）

%o a048098_list=[x|x<-[1..]，a006530 x^2<=x]

%o--_Reinhard Zumkeller_2011年10月12日

%o（Python）

%o来自sympy进口保理商

%o定义正常（n）：

%o如果n<2 else max（因子（n））**2<=n，则返回n==1

%o打印（[k代表范围（196）内的k，如果可以（k）]）#_Michael S.Branicky_2021年12月22日

%Y设置A063539和A001248的并集。

%Y参见A006530、A063538、A063762、A06376、A064052。

%Y以下是sqrt（n）-平滑数的所有不同版本：A048098、A063539、A064775、A295084、A333535、A333566。

%轻松，不紧张，很好

%O 1,2号机组

%A_J.洛厄尔_

%E来自James A.Sellers_的更多条款，2000年4月22日

%E由_Charles R Greathouse IV_编辑，2010年11月8日