%I#13 2017年7月31日03:23:13
%S 3,7,29,17,37,23,41,61,29,53,61,59,69,67,67,71,79,83167,89157,
%电话:331163103107113193347191367191379211421211433409347,
%电话:22941922343123949457479257487263419277431997521293521
%N a(N)是使p(s)-p(s-N)可被N整除的最小素数p(s。
%H Michael De Vlieger,n的表,n=1..1000的a(n)</a>
%e对于n=3:a(3)=29=p(10),因为29-p(7)=29-17=12可以被3整除。
%e对于n=25:a(25)=103=p(27),因为103-p(27-25)=103-3=100可以被25整除。
%t表[s=n+1;而[!可除[Set[p,Prime@s]-Prime[s-n],n],s++];p、 {n,57}](*迈克尔·德弗里格,2017年7月30日*)
%o(PARI)a(n)={s=n+1;while((质数)-质数(s-n))%n,s++;质数;}\\_Michel Marcus_,2013年12月26日
%Y参考A073125、A073127。
%K nonn公司
%O 1,1号机组
%A _Labos Elemer,2002年7月16日