%I#31 2022年8月5日20:03:05
%S 2,3,3,5,7,5,6,7,11,5,13,11,7,7,19,13,23,7,17,11,19,29,31,13,23,37,11,
%电话41,17,43,29,13,31,47,19,53,37,23,59,17,11,61,41,43,19,67,47,71,13,29,
%U 73,31,79,53,23,83,13,59,89,61,37,17,97,67101,29,41103,19,71107,43,31
%N素因子>=第N个半素的其他素因子。
%第n个半素数的最大非平凡除数。[_Juri-Stepan Gerasimov_,2010年4月18日]
%C A001358(n)的素因子中的较大者_宋建宁,2022年8月5日
%H Zak Seidov,n的表格,n=1..1000的a(n)</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/Semiprime.html“>半素数</a>
%F a(n)=A006530(A001358(n))。
%F a(n)=A001358(n)/A020639(A001358(n))。【由米歇尔·马库斯修订,2020年7月18日】
%F a(n)=A001358(n)/A084126(n)。
%t系数整数[#][[-1,1]]&/@Select[Range[1000],PrimeOmega[#]==2&](*_Jean-François Alcover_,2021年11月17日*)
%o(哈斯克尔)
%o a084127=a006530。a001358---Reinhard Zumkeller_,2012年11月25日
%o(PARI)列表a(nn)={对于(n=2,nn,if(bigomega(n)==2,f=因子(n);打印1(f[长度(f~),1],“,”););}\\_Michel Marcus_,2013年6月5日
%Y参见A001358(半素数),A084126(半素素素因子中较小的)。
%Y参见A014673、A061299、A068318、A087718、A087 794、A089994、A089 995、A096932、A106550、A106554、A108542、A126663、A131284、A138510、A138511。
%K nonn公司
%O 1,1号机组
%A _Reinhard Zumkeller_,2003年5月15日
%E由T.D.Noe_修订,2006年11月15日
|