登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 


A193890号
素数p使得用3*d替换任何一个十进制数字d都会产生另一个素数(显然p只能包含数字0、1、2或3)。
11, 311, 1301, 10133, 1030031
抵消
1,1
评论
这些数字不会出现在A050249号(弱关联素数)。
p不能同时包含数字1和2,因为它可以被3整除。
没有更多条款<10^9。[莱因哈德·祖姆凯勒2011年8月11日]
没有更多条款<10^14-阿尔卡迪乌斯·韦索洛夫斯基2012年2月8日
没有更多条款<10^18-乔瓦尼·雷斯塔2013年2月23日
没有更多条款<10^22-简·范·德尔登,2016年3月6日
数字1或2的出现次数等于2(mod 3)-罗伯特·伊斯雷尔2016年3月7日
链接
G.L.Honaker,Jr.和Chris Caldwell,顶级古玩!1030031
主要困惑和问题联系,拼图822
例子
1301属于这个序列,因为1303、1301、1901和3301都是质数。
MAPLE公司
S: =空:
对于x从2到3^10 do
五十: =换算(x,基数,3):
如果number出现(1,L)mod 3<>2,则下一个fi;
L1:=接头(2=3,L);
L2:=子(1=2,L1);
对于[L1,L2]中的LL do
y: =添加(LL[i]*10^(i-1),i=1..nops(L1));
如果是素数(y),则
好:=真;
对于j从1到nops(LL)do
yp:=y+2*LL[j]*10^(j-1);
如果不是isprime(yp),则
好:=假;
打破
fi(菲涅耳)
日期:
如果良好,则S:=S,y-fi;
fi;
操作系统
日期:
排序([S])#罗伯特·伊斯雷尔2016年3月7日
数学
选择[Select[Prime@Range[10^6],AllTrue[IntegerDigits@#,MemberQ[{0,1,2,3},#]&]&],Function[k,AllTrue[Map[FromDigits,Map[3#&,IntegerGigits@k,#]&,Range@IntegerLength@k]],PrimeQ]](*迈克尔·德弗利格,2016年3月6日,第10版*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(inits,tails)
a193890 n=a193890_列表!!(n-1)
a193890_list=a107715_list的过滤器,其中
f n=(全部((==1)。a010051)$
zipWith(\ins(t:tns)->读取$(ins++x3 t++tns))
(init$inits$show n)(init$tails$shown n)
其中x3'0'=“0”
x3’1’=“3”
x3'2'=“6”
x3'3'=“9”
--莱因哈德·祖姆凯勒2011年8月11日
(Python)
从sympy导入isprime
来自itertools导入产品
193890英镑_列表=[]
对于范围(1,10)中的l:
对于产品中的d('0123',重复=l):
p=int(“”.join(d))
如果d[0]!='('1','3')和isprime(p)中的0'和d[-1]:
对于范围内的i(len(d)):
d2=列表(d)
d2[i]=字符串(3*int(d[i]))
如果不是is_prime(int(''.join(d2))):
打破
其他:
A193890号_列表.附加(p)#柴华武2015年8月13日
关键词
非n,基础,坚硬的,更多
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年9月23日14:54 EDT。包含376178个序列。(在oeis4上运行。)