%I#12 2019年5月12日12:51:32

%南29,37149327892251799813685269

%N考虑素数p和q，对于某些k，p=2^k+21和q=2^（k+1）+21；序列给出p的值。

%C不超过k=2000的附加条款_Harvey P.Dale_，2019年5月12日

%t选择[Partition[2^Range[60]+21,2]，AllTrue[#，PrimeQ]&][[All，1]]（*程序使用Mathematica版本10*中的AllTrue函数）（*Harvey P.Dale_，2019年5月12日*）

%o（PARI）g（m，n，b）={对于（x=0，n，y=m+b^x+b%2；z=m+b^（x+1）+b%2，if（isprime（y）&isprime，z），print1（y“，”））}

%Y参考A108273。

%K nonn公司

%O 1,1号机组

%2005年6月29日，A Clino Hilliard