|
|
|
|
|
|
|
|
|
#14通过N.J.A.斯隆2022年1月11日星期二美国东部标准时间22:00:06 |
|
|
|
|
|
|
|
#13通过安德鲁·霍罗伊德2022年1月11日星期二16:09:36 EST |
|
|
|
|
|
|
|
#12通过安德鲁·霍罗伊德2022年1月11日星期二16:09:27 EST |
|
| 黄体脂酮素
|
（PARI）seq（n，d1=2，d2=3）={my（L=List（））；对于（d=1，n个面向对象，对于perm（向量（2*d，i，如果（i<=d，d1，d2）），v，my（q=来自数字（Vec（v）））；如果（isprime（q），listput（L，q）；如果（#L>=n，返回（Vec（L）））}\\安德鲁·霍罗伊德2022年1月11日
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#11通过安德鲁·霍罗伊德2022年1月11日星期二16:03:31 EST |
|
|
|
|
|
|
|
#10通过安德鲁·霍罗伊德2022年1月11日星期二16:02:40 EST |
|
| 黄体脂酮素
|
（PARI）/*仅由数字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=subst（Pol（D），x，10）；如果（i素数（q），如果（k<100，k++；a[k]=q））；）；a=向量（k，n，a[n]）；向量排序（a）
（PARI）seq（n，d1=2，d2=3）={my（L=List（））；对于（d=1，n，对于perm（向量（2*d，i，if（i<=d，d1，d2）），v，my（q=fromdigits（Vec（v））））；如果（isprime（q），listput（L，q）；如果\\安德鲁·霍罗伊德2022年1月11日
|
|
| 状态
|
提出
编辑
|
|
|
|
|
讨论
|
| 1月11日星期二
| 16:03
| 安德鲁·霍罗伊德：同意。即使在创建新的应用程序时，它也不是很有用。
|
|
|
|
|
|
|
#9通过迈克尔·布拉尼基2022年1月11日星期二15:44:01 EST |
|
|
|
|
|
|
|
#8通过迈克尔·布拉尼基2022年1月11日星期二15:43:55 EST |
|
| 链接
|
Michael S.Branicky，<a href=“/A087527号/b087527.txt“>n表，n=1..10000时为a（n）</a>
|
|
| 黄体脂酮素
|
（Python）
从sympy导入isprime
从sympy.utilities.可交互导入multiset_permutations
def auptodigs（最大数字）：
alst=[]
对于范围（2，最大数字+1，2）中的d：
ms=“2”*（d//2）+“3”*（d//2-1）
对于多重置换（ms，d-1）中的p：
t=int（“”.join（p）+“3”）
如果是质数（t）：
附加（t）
返回alst
打印（指纹（10））#迈克尔·布拉尼基2022年1月11日
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#7个通过乔治·菲舍尔2022年1月11日星期二15:14:20 EST |
|
|
|
|
|
讨论
|
| 1月11日星期二
| 15:19
| 安德鲁·霍罗伊德：PARI表示isprime（222222 32333333）-PARI的isprime测试不是概率测试。（ispseudoprime是概率测试）
|
|
| 15:32
| 安德鲁·霍罗伊德：如果更改d1=x，PARI程序将运行；d2＝y到d1＝2；d2=3。（但不要指定给x）。它只产生3323232223的输出，因此不包括最终项。
|
|
| 15:40
| 安德鲁·霍罗伊德：但如果我增加3000，我会得到错误的值。由于各种原因，该程序看起来有缺陷（相当糟糕）。也许我们只是加了一条注释，说它产生了n>18的不正确术语。
|
|
| 15:51
| 乔治·菲舍尔：谢谢。但我更愿意删除该程序。
|
|
|
|
|
|
|
#6通过乔治·菲舍尔2022年1月11日星期二东部标准时间15:10:08 |
|
| 数据
|
23, 23223323, 32323223, 2222323333, 2223223333, 2232223333, 2232322333, 2232332233, 2323222333, 2332322233, 2333222323, 2333223223, 3223232323, 3232222333, 3232232233, 3232233223, 3232322323, 3323232223,2332232223332322222232333333
|
|
| 抵消
|
01,1
|
|
| MAPLE公司
|
仅由数字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=subst（Pol（D），x，10）；如果（i素数（q），如果（k<100，k++；a[k]=q））；）；a=向量（k，n，a[n]）；向量排序（a）
|
|
| 黄体脂酮素
|
（PARI）/*仅由数字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=subst（Pol（D），x，10）；如果（i素数（q），如果（k<100，k++；a[k]=q））；）；a=向量（k，n，a[n]）；向量排序（a）
|
|
| 扩展
|
偏移更改为1，a（19）由修正乔治·菲舍尔2022年1月11日
|
|
| 状态
|
已批准
编辑
|
|
|
|
|
讨论
|
| 1月11日星期二
| 15:14
| 乔治·菲舍尔：PARI、MMA和jOEIS发现222222 32333333可能是素数。我无法使PARI工作。类似偏移和/或“Maple”问题影响A087512-15、A087528-38。
|
|
|
|
|
|
|
#5通过N.J.A.斯隆2013年12月5日星期四19:56:30 EST |
|
| 作者
|
保罗·D·汉纳和 _阿玛纳斯·穆尔西(阿玛纳特_阴暗的(自动变速箱)雅虎.通用域名格式),_,2003年9月12日
|
|
|
|
|
讨论
|
| 2005年12月星期四
| 19:56
| OEIS服务器: https://oeis.org/edit/global/2075
|
|
|
|
|
|
