nth prime number contain n as their substring within 100000000

最新推荐文章于 2021-11-15 16:55:33 发布

最新推荐文章于 2021-11-15 16:55:33 发布 · 83 阅读

文章标签：

#VBA #J#

本文介绍了一段使用VBA编写的代码，该代码能够生成特定条件下的素数，并将这些素数及其对应的序列号打印出来。算法采用了埃拉托斯特尼筛法，通过迭代检查每个奇数来确定其是否为素数。

A small VBA code to get these numbers:

SubMain()

Dimi&,j&,k&,n&,num&,a(100000000)AsByte,p(1To10000000)AsLong
num=1

p(num)=2'The1stprime 

n=100000000'10^8 

k=Int(Sqr(n))'sqrarerootofn 

Fori=3TokStep2

Ifa(i)=0Then
num=num+1
p(num)=i

IfInStr(i,num)ThenDebug.Print"P("&num&")="&i

Forj=i*iTonStep2*i'Eractosthenes 

a(j)=100'Notprimenumber 

Next

EndIf

Next

Fori=k+1TonStep2'Listallprimenumberstoarrayp() 

Ifa(i)=0Then
num=num+1

'p(num)=i 

IfInStr(i,num)ThenDebug.Print"P("&num&")="&i

EndIf

Next

EndSub

It returns:

P(7)=17
P(6455)=64553
P(6456)=64567
P(6457)=64577
P(6459)=64591
P(6460)=64601
P(6466)=64661
P(9551)=99551
P(303027)=4303027
P(440999)=6440999
P(968819)=14968819
P(5517973)=95517973