%I#46 2023年5月7日11:18:29

%S 4,11,3627127122091199137171371734369172146，

%电话：3094795309479543089481276214223902561720849567208495672084956，

%电话：105277916110527791161857276773185727631931797319398320444757446769076909157446769091

%N a（N）是最小的k，当i=0，1，。。。，n-1。

%等价地，“mod 6”可以替换为“mod 3”。关于变量“=5（mod 6）”，请参见A247967；关于素数序列彼此同余（mod 3），请参阅A276414_M.F.Hasler，2016年9月2日

%C根据Shiu定理，序列是无限的_Jonathan Sondow，2017年6月22日

%H Giovanni Resta，n的表格，n=1..35的a（n）</a>

%H D.K.L.Shiu，<a href=“http://dx.doi.org/10.112/S0024610799007863“>同余素数串</a>，J.Lond.Math.Soc.61（2）（2000）359-373[<a href=”http://www.ams.org/mathscinet getitem？mr=1760689网址“>MR1760689

%F a（n）=素数（A057620（n））_米歇尔·马库斯，2014年9月30日

%e a（1）=4=>素数（4）（mod 6）=1；

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

%e a（3）=36=>素数（36）（模6）=1，素数（37）（模六）=1。

%e生成的素数为：

%e 7；

%e 31、37；

%e 151、157、163；

%e 1741年、1747年、1753年、1759年；

%e 1741年、1747年、1753年、1759年、1777年；

%e 1741年、1747年、1753年、1759年、1777年、1783年；

%e 19471、19477、19483、19489、19501、19507、19531；

%e…-_米歇尔·马库斯，2014年9月29日

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

%p ii：=0：

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

%p秒：=0：

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

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

%p，如果r=1

%那么p

%p s：=s+1:

%p其他

%p fi:

%日期：

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

%那么p

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

%p其他

%p fi:

%日期：

%日期：

%t使用[{m6=If[Mod[#，6]==1,1,0]&/@Prime[Range[5*10^6]]}，展平[Table[SequencePosition[m6，PadRight[{}，n，1]，1]、{n，16}]，1][[；；，1]]（*H arvey P.Dale_，2023年5月7日*）

%o（PARI）m=c=i=0；对于素数（p=1，，i++；p%6！=1&&（！c||！c=0）&&next；c++>m|next；打印1（1+i-m=c，“，”）\\ m.F.Hasler_，2016年9月2日

%Y参考A057620、A247967；A276414。

%K nonn，硬

%O 1,1号机组

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

%2014年10月3日，米歇尔·马库斯（_Michel Marcus）在A057620中的E a（12）-a（21）

%E a（22）-a（29），摘自_Giovanni Resta_，2018年10月3日