%I#8 2013年5月13日01:49:24
%S 288040324800633674889408979792109411200132481458015680,
%电话1670417600178562041220800213122323616247682707227200,
%电话:3040030528320763244833984496963513645036800379083859238720
%N形式为p^6*q^2*r的数,其中p、q和r是不同的素数。
%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,2,6};选择[范围[40000],f]
%o(PARI)list(lim)=my(v=list(),t1,t2);对于素数(p=2,(lim\12)^(1/6),t1=p^6;对于素数(q=2,sqrt(lim\t1),如果(p==q,next);t2=t1*q^2;对于素数(r=2,lim\t2,if(p==r|q==r,next);列表(v,t2*r));vecsort(Vec(v))\\_Charles R Greathouse IV,2011年7月24日
%K nonn公司
%O 1,1
%A _弗拉迪米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基(Joseph Stephan Orlovsky),2010年7月24日
|