%I#25 2020年12月22日02:15:45

%第14,28,56,98112196224392448678489613721568179227443136页，

%电话：358448025488627171689604109761254414336192082195225088，

%电话：286723361438416439045017657344672287683287808100352114688

%素因子为2和7的N个数。

%C数字k，使得phi（k）=（3/7）*k-贝诺伊特·克罗特，2002年4月19日

%C A143204的子序列。-_Reinhard Zumkeller，2011年9月13日

%H Reinhard Zumkeller，n的表，n=1..10000的a（n）</a>

%F A143201（a（n））=6.-_Reinhard Zumkeller，2011年9月13日

%F和{n>=1}1/a（n）=1/6.-_Amiram Eldar，2020年12月22日

%t使用[{nn=20}，选择[Union[Flatten[Table[2^n 7^k，{n，nn}，{k，nn}]]，#<=2^nn 7&]]（*H arvey P.Dale_，Nov 25 2020*）

%o（哈斯克尔）

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

%o a033847 n=a033847_列表！！（n-1）

%o a033847_list=f（单例（2*7）），其中

%o f s=m:f（插入（2*m）$插入（7*m）s’），其中

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

%o--_Reinhard Zumkeller_2011年9月13日

%Y参见A033845、A033846、A03384、A033949、A033850、A033851、A143204。

%K非n

%O 1,1号机组

%杰夫·伯奇（_Jeff Burch）_

%E偏移由Reinhard Zumkeller_2011年9月13日确定