%I#15 2017年7月31日03:25:45
%S 2,3,17,5,17,5,13,29,2,13,17,11,7,11,1,7,7,67,5,47193,43,3,3,5,
%电话53173,41181,11181,41211,3121181113,29173,13173,19229181,
%U 197,17193,13113,17113619191,131791731677431499,71627733号
%N a(N)是素数(s+N)-素数(s)可被N整除的最小素数p(s)。
%H Michael De Vlieger,n的表,n=1..1000的a(n)</a>
%e n=1:a(1)=2,因为3-2=1可以被1整除。
%e n=10:a(10)=13=p(6),因为p(6+10)-13=p(16)-13=53-13=40可以被10整除。
%t表[s=1;而[!可除[Prime[s+n]-集[p,素数@s],n],s++];p、 {n,64}](*迈克尔·德弗里格,2017年7月30日*)
%o(PARI)a(n)={s=1;while((质数(s+n)-质数)%n,s++);质数;}\\_Michel Marcus_,2013年12月26日
%Y参考A073126、A073127。
%K nonn公司
%O 1,1号机组
%A _Labos Elemer_,2002年7月16日