|
|
|
|
#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);if(i素数(p),if(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 |
|
|
|
#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:
毫秒=“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);if(i素数(p),if(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);if(i素数(p),if(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月4日
| 19:56
| OEIS服务器: https://oeis.org/edit/global/2075
|
|
|
|