1，1

T、 D.不，n=1..1000的n，a（n）表

仅由数字x和y组成的素数，出现频率相等。d1=x；d2=y；k=0；a=矢量（100）；对于（n=13000，B=二进制（n）；L=长度（B）；s=和（j=1，长度（B），B[j]）；如果（L%2==0&s==L/2，C=向量（L，n，（d2-d1）*B[n]+d1）；p=次方（Pol（C），x，10）；如果（isprime（p），如果（k<100，k++；a[k]=p））；D=矢量（L，n，d2-（d2-d1）*B[n]）；q=次方（Pol（D），x，10）；if（isprime（q），if（k<100，k++；a[k]=q））；）；a=向量（k，n，a[n]）；向量排序（a）

选择[FromDigits/@Tuples[{0，1}，14]，PrimeQ[#]&&Length[x=IntegerDigits[#]]==2*Count[x，0]&](*贾扬达·巴苏2013年5月23日*）

囊性纤维变性。A087511号,A087512,A087513号.

基础,不

保罗·D·汉娜和阿玛纳特·穆尔蒂2003年9月11日

经核准的

1，1

这是给3个A214218号是到2。素数的子序列（当解释为十进制整数时）是A087511号.

罗伯特·以色列，n=1..10000的n，a（n）表

排序（[顺序（（10^（2*d）-1）/9+2*add（10^i，i=s），s=combinat:-选择（[$0..（2*d-1）]，d）），d=1..4）]#罗伯特·以色列2018年7月9日

展平[Table[Sort[fromdights/@Permutations[PadRight[{}，2n，{1，3}]]]，{n，3}]](*哈维·P·戴尔2014年8月3日*）

囊性纤维变性。A214218号.

不,基础,容易的

乔纳森·沃斯·波斯特2012年7月18日

经核准的

1，1

有18个数字对可以产生这样的素数。（1,0），（7,0），（1,3），（1,4），（1,6），（1,7），（1,9），（2,3），（2,9），（3,4），（3,5），（3,7），（3,8），（4，7）、（4,9）、（5,9）、（6,7）、（7,9）。

术语中的位数是偶数，但不是6的倍数-罗伯特·以色列2019年10月30日

罗伯特·以色列，n=1..6235的n，a（n）表

F： =proc（d）局部C，C；

如果d mod 3=0，则返回空fi；

C： =map（t->[0，op（t）]，组合：-choose（[$1..d-1]，d/2-1））；

C： =map（t->2*（10^d-1）/9+7*加（10^C，C=t），C）；

op（排序（select（isprime，C）））

结束过程：

顺序（F（d），d=2..14，2）#罗伯特·以色列2019年10月30日

囊性纤维变性。A087510号,A087511号,A087514号.

基础,不

保罗·D·汉娜和阿玛纳特·穆尔蒂2003年9月12日

偏移量校正者罗伯特·以色列2019年10月30日

经核准的

1，1

有18个数字对可以产生这样的素数。（1,0），（7,0），（1,3），（1,4），（1,6），（1,7），（1,9），（2,3），（2,9），（3,4），（3,5），（3,7），（3,8），（4，7）、（4,9）、（5,9）、（6,7）、（7,9）。

哈维·P·戴尔，n=1..5000的n，a（n）表

仅由数字x和y组成的素数，出现频率相等。d1=x；d2=y；k=0；a=矢量（100）；对于（n=13000，B=二进制（n）；L=长度（B）；s=和（j=1，长度（B），B[j]）；如果（L%2==0&s==L/2，C=向量（L，n，（d2-d1）*B[n]+d1）；p=次方（Pol（C），x，10）；如果（isprime（p），如果（k<100，k++；a[k]=p））；D=矢量（L，n，d2-（d2-d1）*B[n]）；q=次方（Pol（D），x，10）；if（isprime（q），if（k<100，k++；a[k]=q））；）；a=向量（k，n，a[n]）；向量排序（a）

选择[FromDigits/@flant[Permutations/@Table[PadRight[{}，2n，{4，3}]，{n，5}]，1]，PrimeQ]//排序(*哈维·P·戴尔2017年8月8日*）

囊性纤维变性。A087510号,A087511号,A087528号.

基础,不

保罗·D·汉娜和阿玛纳特·穆尔蒂2003年9月12日

经核准的

1，1

有18个数字对可以产生这样的素数。（1,0），（7,0），（1,3），（1,4），（1,6），（1,7），（1,9），（2,3），（2,9），（3,4），（3,5），（3,7），（3,8），（4，7）、（4,9）、（5,9）、（6,7）、（7,9）。

哈维·P·戴尔，n=1..5000的n，a（n）表

排序[Select[fromdights/@flant[Permutations/@Table[PadRight[{}，2n，{3，5}]，{n，5}]，1]，PrimeQ]](*哈维·P·戴尔2012年10月24日*）

（PARI）/*仅由数字x和y组成的素数，出现频率相同。*/x=3；y=5；d1=x；d2=y；k=0；a=矢量（100）；对于（n=13000，B=二进制（n）；L=长度（B）；s=和（j=1，长度（B），B[j]）；如果（L%2==0&s==L/2，C=向量（L，n，（d2-d1）*B[n]+d1）；p=次方（Pol（C），x，10）；如果（isprime（p），如果（k<100，k++；a[k]=p））；D=矢量（L，n，d2-（d2-d1）*B[n]）；q=次方（Pol（D），x，10）；if（isprime（q），if（k<100，k++；a[k]=q））；）；a=向量（k，n，a[n]）；向量排序（a）

囊性纤维变性。A087510号,A087511号,A087529号.

基础,不

阿玛纳特·穆尔蒂和保罗·D·汉娜2003年9月12日

编辑查尔斯R格雷特豪斯四世2009年10月28日

经核准的

0,1

有18个数字对可以产生这样的素数。（1,0），（7,0），（1,3），（1,4），（1,6），（1,7），（1,9），（2,3），（2,9），（3,4），（3,5），（3,7），（3,8），（4，7）、（4,9）、（5,9）、（6,7）、（7,9）。

哈维·P·戴尔，n=0..10000时的n，a（n）表

Table[Select[fromdights/@Permutations[PadRight[{}，2n，{4，7}]]，PrimeQ]，{n，7}]//展平//排序(*哈维·P·戴尔2016年5月5日*）

（PARI）/*仅由数字x和y组成的素数，出现频率相同。*/x=4；y=7；d1=x；d2=y；k=0；a=矢量（100）；对于（n=13000，B=二进制（n）；L=长度（B）；s=和（j=1，长度（B），B[j]）；如果（L%2==0&s==L/2，C=向量（L，n，（d2-d1）*B[n]+d1）；p=次方（Pol（C），x，10）；如果（isprime（p），如果（k<100，k++；a[k]=p））；D=矢量（L，n，d2-（d2-d1）*B[n]）；q=次方（Pol（D），x，10）；if（isprime（q），if（k<100，k++；a[k]=q））；）；a=向量（k，n，a[n]）；向量排序（a）

囊性纤维变性。A087510号,A087511号,A087532号.

基础,不

保罗·D·汉娜和阿玛纳特·穆尔蒂2003年9月12日

编辑查尔斯R格雷特豪斯四世2009年10月28日

更正人哈维·P·戴尔2016年5月5日

经核准的

0,1

有18个数字对可以产生这样的素数。（1,0），（7,0），（1,3），（1,4），（1,6），（1,7），（1,9），（2,3），（2,9），（3,4），（3,5），（3,7），（3,8），（4，7）、（4,9）、（5,9）、（6,7）、（7,9）。

哈维·P·戴尔，n=0..10000时的n，a（n）表

Sort[Flatten[Table[Select[FromDigits/@Permutations[PadRight[{}，2n，{4，9}]]，PrimeQ]，{n，5}]]](*哈维·P·戴尔，2016年8月21日*）

（PARI）/*仅由数字x和y组成的素数，出现频率相同。*/x=4；y=9；d1=x；d2=y；k=0；a=矢量（100）；对于（n=13000，B=二进制（n）；L=长度（B）；s=和（j=1，长度（B），B[j]）；如果（L%2==0&s==L/2，C=向量（L，n，（d2-d1）*B[n]+d1）；p=次方（Pol（C），x，10）；如果（isprime（p），如果（k<100，k++；a[k]=p））；D=矢量（L，n，d2-（d2-d1）*B[n]）；q=次方（Pol（D），x，10）；if（isprime（q），if（k<100，k++；a[k]=q））；）；a=向量（k，n，a[n]）；向量排序（a）

囊性纤维变性。A087510号,A087511号,A087533号.

基础,不

保罗·D·汉娜和阿玛纳特·穆尔蒂2003年9月12日

编辑查尔斯R格雷特豪斯四世2009年10月28日

经核准的

0,1

有18个数字对可以产生这样的素数。（1,0），（7,0），（1,3），（1,4），（1,6），（1,7），（1,9），（2,3），（2,9），（3,4），（3,5），（3,7），（3,8），（4，7）、（4,9）、（5,9）、（6,7）、（7,9）。

哈维·P·戴尔，n=0..5000时的n，a（n）表

Sort[Flatten[Table[Select[FromDigits/@Permutations[PadRight[{}，2n，{6，7}]]，PrimeQ]，{n，5}]]](*哈维·P·戴尔2012年12月3日*）

（PARI）/*仅由数字x和y组成的素数，出现频率相同。*/x=6；y=7；d1=x；d2=y；k=0；a=矢量（100）；对于（n=13000，B=二进制（n）；L=长度（B）；s=和（j=1，长度（B），B[j]）；如果（L%2==0&s==L/2，C=向量（L，n，（d2-d1）*B[n]+d1）；p=次方（Pol（C），x，10）；如果（isprime（p），如果（k<100，k++；a[k]=p））；D=矢量（L，n，d2-（d2-d1）*B[n]）；q=次方（Pol（D），x，10）；if（isprime（q），if（k<100，k++；a[k]=q））；）；a=向量（k，n，a[n]）；向量排序（a）

囊性纤维变性。A087510号,A087511号,A087535号.

基础,不

阿玛纳特·穆尔蒂和保罗·D·汉娜2003年9月12日

编辑查尔斯R格雷特豪斯四世2009年10月28日

经核准的

1，1

有18个数字对可以产生这样的素数。（1,0），（7,0），（1,3），（1,4），（1,6），（1,7），（1,9），（2,3），（2,9），（3,4），（3,5），（3,7），（3,8），（4，7）、（4,9）、（5,9）、（6,7）、（7,9）。

迈克尔·S·布兰尼基，n=1..10000的n，a（n）表

（蟒蛇）

从sympy import isprime

来自sympy.utilities。可导入多集置换

def auptodigs（最大位数）：

alst=[]

对于范围内的d（2，最大位数+1，2）：

ms=“2”*（d//2）+“3”*（d//2-1）

对于多集置换中的p（ms，d-1）：

t=int（“.join（p）+“3”）

如果为isprime（t）：

附加（t）

返回alst

打印（辅助诊断（10））#迈克尔·S·布兰尼基2022年1月11日

（PARI）seq（n，d1=2，d2=3）={my（L=List（））；for（d=1，oo，forperm（vector（2*d，i，if（i<=d，d1，d2）），v，my（q=fromdigits（Vec（v））；if（isprime（q），listput（L，q）；if（#L>=n，return（Vec（L））））}\\安德鲁·豪罗伊德2022年1月11日

囊性纤维变性。A087510号,A087511号,A087514号.

基础,不

保罗·D·汉娜和阿玛纳特·穆尔蒂2003年9月12日

偏移量更改为1和a（19），校正方式为乔治费舍尔2022年1月11日

经核准的

0,1

有18个数字对可以产生这样的素数。（1,0），（7,0），（1,3），（1,4），（1,6），（1,7），（1,9），（2,3），（2,9），（3,4），（3,5），（3,7），（3,8），（4，7）、（4,9）、（5,9）、（6,7）、（7,9）。

n=0..21的n，a（n）表。

选择[Flatten[Table[fromdights/@Permutations[Join[Table[3，{i}]，Table[7，{i}]]]，{i，7}]]，PrimeQ]（来自Harvey Dale）

（PARI）/*仅由数字x和y组成的素数，出现频率相同。*/x=3；y=7；d1=x；d2=y；k=0；a=矢量（100）；对于（n=13000，B=二进制（n）；L=长度（B）；s=和（j=1，长度（B），B[j]）；如果（L%2==0&s==L/2，C=向量（L，n，（d2-d1）*B[n]+d1）；p=次方（Pol（C），x，10）；如果（isprime（p），如果（k<100，k++；a[k]=p））；D=矢量（L，n，d2-（d2-d1）*B[n]）；q=次方（Pol（D），x，10）；if（isprime（q），if（k<100，k++；a[k]=q））；）；a=向量（k，n，a[n]）；向量排序（a）

囊性纤维变性。A087510号,A087511号,A087530.

基础,不

阿玛纳特·穆尔蒂和保罗·D·汉娜2003年9月12日

编辑查尔斯R格雷特豪斯四世2009年10月28日

经核准的