%I#9 2016年8月25日23:09:12

%S 2402403141603511203712804149604250405023220542640，

%电话：572880583440633360652080656565656580658068067704068376034160757680，

%电话：78936079464080808108168282408527208585360895440912912925680

%素数分解为pqrstu ^4的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,1,4}；选择[范围[120000]，f]

%o（PARI）list（lim）=my（v=list（），t1，t2，t3，t4，t5）；对于素数（p=2，sqrtnint（lim\2310，4），t1=p^4；对于素数（q=2，lim\（210*t1），如果（q==p，next）；t2=q*t1；对于素数（r=2，lim\（30*t2），如果（r==p|r==q，next）；t3=r*t2；对于素数（s=2，lim\（6*t3），如果（s==p|s==q|s==r，next）；t4＝s*t3；对于素数（t=2，lim\（2*t4），如果（t==p|t==q|t==r|t==3s，next）；t5=t*t4；对于素数（u=2，lim\t5，如果（u==p|u==q|u==r|u==2s|u==3t，next）；列表（v，t5*u）））；设置（v）\\_Charles R Greathouse IV_，2016年8月25日

%Y参考A190386和A190387。

%K nonn公司

%O 1,1号机组

%A _弗拉迪米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基（Joseph Stephan Orlovsky），2011年5月9日