%I#15 2020年10月18日02:49:35

%S 4,4,44,4,14,25,25,5914114114114141141141141，

%电话：2802302802088196098196098196045051954505195743844015658002，

%电话：156580021565800215580022628111621467161838046716188805803722576580372256580372276

%N a（N）是最小的k，因此素数（k+i）（mod 6）连续取值1,5,1,5，。..对于i=0，1，。..，n-1以1或5结尾。

%H Rémy Sigrist，<a href=“/A247969/A247969.gp.txt”>A247969的PARI程序</a>

%e a（1）=4=>素数（4）（mod 6）=1，而不是k=1，2，3。

%e a（2）=4=>素数（4）（模6）=1，素数（5）（模六）=5；

%e a（3）=4=>素数（4）（模6）=1，素数（5）。

%e相应的素数用于

%e n=6:7、11、13、17、19、23；

%e n=8:97、101、103、107、109、113、127、131；

%e n=9:27728128329307311317331；

%e n=20:811、821、823、827、829、839、853、857、859、863、877、881、883、887、907、911、919、929、937、941。-马库斯，2014年9月29日

%p代表从1到21的n do：

%p ii：=0：

%p代表k从3到10^5，而（ii=0）do：

%p s：=0:

%i从0到n-1的p为：

%p r：=irem（ithprime（k+i），6）：

%p如果r=irem（5^i，6）

%那么p

%p秒：=秒+1：

%p其他

%p fi:

%日期：

%p，如果s=n且ii=0

%那么p

%p打印f（“%d%d\n”，n，k）：ii:=1:

%p其他

%p fi:

%日期：

%操作说明：

%o（PARI）a（n）={k=1；ok=0；while（！ok，m=1；nb=0；对于（i=0，n-1，if（（质数（k+i）%6）==m，nb++，中断）；m=5*m%6；）；if（nb==n，ok=1，k++）；）；k；}\\米歇尔·马库斯，2014年9月29日

%o（PARI）参见链接部分。

%Y参见A000040、A247816、A247967。

%K nonn公司

%O 1,1号机组

%2014年9月28日，拉格瑙市

%E 2020年10月18日Rémy Sigrist的更多条款