%I#19 2023年1月30日02:38:59

%S 8,25,321212886751311369193621872700312532467249800，

%电话：10800121671512532761392004866870225795078820097336107648，

%电话：1436411568002125212284842352242800312481332928456968566512457456467028744769829921830297857476877952940896

%N一对连续的强大数（A001694）中较小的一个，它们之间没有素数。

%H Amiram Eldar，n的表格，n=1..103的a（n）（10^9以下的术语）

%e25在序列中，因为A001694（6）=25，A001699（7）=27，它们之间没有素数。

%t选择[Partition[Join[{1}，Select[Range[10^6]，最小@FactorInteger[#][[All，2]]>1&]]，2,1]，PrimePi[#[1]]==PrimePi[#[2]]&][[All，1]]（*哈维·P·戴尔，2018年3月28日*）

%o（PARI）

%o幂（n）={局部（h）；如果（n==1，h=1，h=（vecmin（因子（n）[，2]）>1））；返回（h）}

%o下一个强大的（n）={local（k）；k=n+1；while（！ispowerful（k），k+=1）；return（k）}

%o{对于（i=1,10^6，if（幂（i），如果（nextprime（i）>=幂（i，print1（i，“，”）））}

%Y A060355的超级序列。

%Y参考A001694，A240590。

%K nonn公司

%O 1,1号机组

%A _Antonio Roldán，2014年4月8日