%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秒:=0:
%i从0到n-1的p为:
%p r:=irem(ithprime(k+i),6):
%p如果r=irem(5^i,6)
%那么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:
%日期:
%日期:
%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的更多条款
|