%I#25 2022年9月8日08:46:13
%编号:130849730424913042701744530920031013115725214468798754266291,
%电话:141208619182316521237416369357080021448436321611641187,
%电话:69945841176112602777499736779440659678364529619155919449941100919461581933917632555611871007371
%N五个孪生素数对的初始成员,它们之间的间隙为210。
%更准确地说,素数p,例如p+2,p+210,p+212,p+420,p+422,p+630,p+632,p+840,p+842都是素数。
%C这个序列中的所有项都与2(mod 3)同余。
%H K.D.Bajpai和Dana Jacobsen,n的表格,n的a(n)=1..10000
%e 1308497出现在这个序列中是因为:(a){1308497、1308499}、{1308707、1308709}、}1308917、1308919}、[1309127、1309129}和{1309337、1309339}是五个孪生素数对;(b) 每个孪生素数对{1308707-1308497}={1308917-1308707}=}1309127-1308917}=[1309337-1309127}=210之间的间隙。
%p选择(p->和映射(isprime,[p,p+2,p+210,p+212,p+420,p+422,p+630,p+632,p+840,p+842]),[seq(p,p=1..2*10^7)]);
%t k=210;选择[Prime@范围[6*10^7],PrimeQ[#+2]&&PrimeQ[#+k]&&PrimeQ[#+k+2]&&PrimeQ[2 k+2]&&PrimeQ[#+2 k+2]&&Prime Q[#+3 k]&&PrimeQ[#+3 k+2]&&PrimeQ(#+4 k)&&PrimQ[#+4 k+2]&]
%t选择[Prime[Range[93*10^6]]、AllTrue[#+{2210212420422630632840842}、PrimeQ]&](*程序使用Mathematica版本10*中的AllTrue函数)(*Harvey P.Dale_,2018年4月5日*)
%o(PARI)表示素数(p=1,3*10^9,如果是(isprime(p+2)&&isprime;
%o(岩浆)[p:p在PrimesUpTo(100000)|IsPrime(p+2)和IsPrime,p+210)和IsPrime,p+420,IsPrime和p+422,IsPrim和p+630,IsPrice和p+632,IsPrime+840和IsPrime+842中];
%o(Perl)使用理论“:all”;比如sieve_prime_cluster(1,1e10、2、210、212、420、422、630、632、840、842);#_达娜·雅各布森,2015年10月2日
%Y参考A077800、A113274、A253624、A261701。
%K nonn公司
%O 1,1号机组
%A _K.D.Bajpai,2015年8月30日
|