|
| |
|
| A018847号 |
| 频闪素数：相同的倒置（计算器式数字）。 |
|
7
|
|
|
|
2, 5, 11, 101, 151, 181, 619, 659, 6229, 10501, 12821, 15551, 16091, 18181, 19861, 60209, 60509, 61519, 61819, 62129, 116911, 119611, 160091, 169691, 191161, 196961, 605509, 620029, 625529, 626929, 650059, 655559, 656959, 682289, 686989, 688889
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
数学
|
lst={}；fQ[n_]：=块[{allset={0，1，2，5，6，8，9}，id=整数位数@n}，并集@Join[id，allset]==allset&&Reverse[id/.{6->9，9->6}]==id]；执行[If[底漆Q@n && fQ@n，附加到[lst，n]]，{n，700000}]；第一次(*罗伯特·威尔逊v2007年2月27日*）
|
|
|
黄体脂酮素
|
（PARI）{write（“/tmp/b018847.txt”，“1 2\n25”）；c=2；s2=[0，1，2，5，6，8，9]；s=[0,1，2，5,8]；s1=[0、1，2、5，9，8，6]；for（n=2，9，p1=矢量（（n+1）\2，i，10^（i-1）））；p2=矢量（n+1），i，如果（i>1，[1，如果（i>n\2，#s，#s1）]，[2,5]），v[1]==3&v[1]=5；ispseudopime（t=总和（i=1，n\2，p1[i]*s1[v[i]]+p2[i]*s2[v[i]]）+if（n%2，p1[#p1]*s[v[#v]]）和/*打印1（t“，”）*/write（“/tmp/b018847.txt”，c++“”t））}\\-M.F.哈斯勒2012年4月26日
（PARI）是_A018847号（n，t=Vec（“012..59.86”））={素（n）&应用（x->t[评价（x）+1]，n=Vec-M.F.哈斯勒2012年5月5日
（Python）
从itertools导入计数，islice
从sympy导入isprime
r、 t，u=“”。maketrans（“69”，“96”），集合（“0125689”），{0，1，2，5，8}
对于计数（1）中的x：
对于范围（10**（x-1），10**x）中的y：
如果u中的y%10：
s=str（y）
如果集<=t且isprime（m:=int（s+s[-2:：-1].translate（r））：
产量m
对于范围（10**（x-1），10**x）中的y：
s=str（y）
如果集<=t且isprime（m:=int（s+s[：：-1].translate（r））：
产量m
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
