%I#10 2016年8月25日23:12:04
%S 4620546069307140798081908580966010710112201155011970,
%电话:1201212180125401287013020132601365014490148201518015540,
%电话157081617016830172201755617850179401801818060182701856418810191101914019380
%素数分解为pqrst^2的N个数。
%H T.D.Noe,n表,n=1..1000时的a(n)</a>
%H Will Nicholes,<a href=“http://willnicholes.com/math/primesiglist.htm“>主要签名</a>
%t f[n_]:=排序[Last/@FactorInteger[n]]=={1,1,1,2};选择[范围[30000],f]
%o(PARI)列表(lim)=我的(v=列表(),t1,t2,t3,t4);对于素数(p=2,平方(lim\210),t1=p^2;对于素数(q=2,lim\(30*t1),如果(q==p,next);t2=q*t1;对于素数(r=2,lim\(6*t2),如果(r==p|r==q,next);t3=r*t2;对于素数(s=2,lim\(2*t3),如果(s==p|s==q|s==r,next);t4=s*t3;对于素数(t=2,lim\t4,如果(t==p|t==q|t==r|t==2,next);列表(v,t4*t)));设置(v)\\_Charles R Greathouse IV_,2016年8月25日
%Y参考A178740、A179644、A179670。
%K nonn公司
%O 1,1号机组
%A _弗拉迪米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基(Joseph Stephan Orlovsky),2011年5月3日
|