%I#43 2022年9月8日08:45:37

%S 30,60,90120150180140270300360450480540600720750810900，

%电话：9601080120013501440150016201800192021602250240002700，

%电话：2880300324036003750384040504320450048004860

%具有不同素因子2、3和5的N个数。

%C形式为2^i*3^j*5^k且i，j，k>0的数字_Reinhard Zumkeller_，2011年9月13日

%C整数k，使得phi（k）/k=4/15.-_阿图尔·贾辛斯基（Artur Jasinski），2008年11月7日

%H Vaclav Kotesovec，n表，n（n）表示n=1..10000（术语1..1000来自T.D.Noe）

%F A001221（a（n））=3；A020639（a（n））=2；A006530（a（n））=5；A143201（a（n））=6。

%F a（n）=30*A051037（n）；A007947（a（n））=A010869（n）.-_Reinhard Zumkeller，2011年9月13日

%F a（n）~sqrt（30）*exp（（6*log（2）*log_瓦茨拉夫·科特索维奇，2020年9月22日

%F和{n>=1}1/a（n）=1/8.-_Amiram Eldar，2020年9月24日

%t a＝｛｝；Do[If[EulerPhi[x]/x==4/15，AppendTo[a，x]]，{x，1，11664}]；a（*阿图尔·贾辛斯基，2008年11月7日*）

%t n=10^4；表[2^i*3^j*5^k，{i，1，Log[2，n]}，{j，1，Log[3，n/2^i]}

%o（哈斯克尔）

%o导入数据。集合（singleton、deleteFindMin、insert）

%o a143207 n=a143207_列表！！（n-1）

%o a143207_list=f（单例（2*3*5）），其中

%o f s=m:f（插入（2*m）$插入（3*m）$插入（5*m）s'），其中

%o（m，s'）=删除查找最小值

%o--_Reinhard Zumkeller_2011年9月13日

%o（PARI）列表（lim）=我的（v=列表（），s，t）；对于（i=1，logint（lim\6,5），t=5^i；对于（j=1，logint（lim\t\2,3），s=t*3^j；而（s<<=1）<=lim，listput（v，s））；集（v）\\_Charles R Greathouse IV_，2015年9月14日

%o（PARI）是（n）=如果（n%30，返回（0））；my（f=系数（n，6）[，1]）；f[#f]<6-2020年9月22日

%o（岩浆）[1..5000]|PrimeDivisors（n）eq[2,3,5]]中的n：n；//_Bruno Berselli，2015年9月14日

%Y参考A069819。

%A143204和A051037的Y子序列。

%K nonn，简单

%O 1,1号机组

%A _Reinhard Zumkeller，2008年8月12日

%E来自_Charles R Greathouse IV_的新名称，2015年9月14日