%I#36 2022年9月8日08:44:50

%S 23,31,47,53,61,73,83131151157167173233251257263271331353，

%电话36737338343344350354155756533571587593601607647653677，

%电话：727733751941947997197799110131033106310971103

%N个素数后跟一个6的间隙，即下一个素数是p+6。

%C原名：连续素数之差为6的下素数。

%C猜想：序列是无限的，对于每一个n>=7746，a（n+1）<a（n）^（1+1/n）。即，对于n>=7746，a（n）^（1/n）是n的严格递减函数（见序列A248855的注释行）_2014年11月29日，Jahanger Kholdi和_Farideh Firozbakht

%H Charles R Greathouse IV，n表，n=1..10000的a（n）</a>

%H OEIS wiki，算术级数中的连续素数：具有给定间隙的CPAP，于2020年1月更新

%H<a href=“/index/Pri#gaps”>质数的索引条目</a>

%e23是下一个素数29=23+6的项。

%p A031924:=程序（n）

%p选项记忆；

%p如果n=1，则

%p返回23；

%p其他

%p p:=下一素数（进程名（n-1））；

%pq:=下一素数（p）；

%p，而q-p<>6 do

%p p：=q；

%pq:=下一素数（p）；

%p端do：

%p返回p；

%p end if；

%p end程序：#_R.J.Mathar_，2013年1月23日

%t Transpose[Select[Partition[Prime[Range[200]]，2，1]，Last[#]-First[#]==6&]][1]（*_Bruno Berselli_，2013年4月9日*）

%o（PARI）is（n）=isprime（n）&&nextprime（n+1）-n==6\\查尔斯·格里特豪斯IV，2013年3月21日

%o（PARI）apply（A031924（n，p=2，show=0，g=6）={forprime（q=p+1，，p+g！=（p=q）||（show&&print1（p-g“，”_M.F.Hasler_，2020年1月2日

%o（岩浆）[PrimesUpTo（1200）|NextPrime（p）-p eq 6]；//_Bruno Berselli，2013年4月9日

%o（间隙）P:=已过滤（[1.1200]，IsPrime）；；

%o列表（已过滤（[1..长度（P）-1]，i->P[i+1]-P[i]=6），k->P[k]）；#_Muniru A Asiru_，2019年1月30日

%Y参考A001359、A023201、A031925；A031924和A007529共同构成A023201。

%K nonn公司

%O 1,1号机组

%杰夫·伯奇（_Jeff Burch）_

%E来自M.F.Hasler_的新名称，2020年1月2日