%I#9 2018年12月28日02:49:36

%S 2,3,5,7,22,52255,57,23232372,37533232235,5325372325355，

%电话：73237332222252222575553532732222522227753753，

%电话：2235755235573352755523555537235357377227777535322232275725233

%N仅包含素数（2,3,5,7）的素数（N）的最小倍数。

%如果质数（n）在A019546中，则C a（n）=质数（n）。

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%p N:=100:#以获得（1）。。a（否）

%p pn:=ithprime（N）：

%p计数：=0：

%p数字：=[2,3,5,7]：

%当计数<N do时，从1开始p代表d

%p表示m从4^d到2*4^d-1，而计数<N do

%p L：=换算（m，基数，4）；

%p n：=加法（数字[L[i]+1]*10^（i-1），i=1..nos（L）-1）；

%p ps：=选择（p->p<=pn且未赋值（A[p]），数量理论：-系数集（n））；

%p计数：=计数+nops（ps）；

%p代表p in ps do A[p]：=n od：

%日期：

%p序列（A[素数（i）]，i=1..N）；#_罗伯特·伊斯雷尔，2018年12月27日

%Y参考A019546，A113591。

%K基础，简单，无

%O 1,1号机组

%A _Amarnath Murthy，2005年11月7日

%E尼克·伍兹的更多术语（njw130（AT）psu.edu），2006年4月25日

%E a（44）和a（50）由_Robert Israel_修订，2018年12月27日