|
|
A258706型 |
| 绝对素数:每个数字的排列都是一个素数。只显示了每个置换类的最小代表。 |
|
9
|
|
|
2, 3, 5, 7, 11, 13, 17, 37, 79, 113, 199, 337, 1111111111111111111, 11111111111111111111111
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
评论
|
接下来的术语是repunit素数(A004023号)R(317)太大,无法在此处显示;R(1031)太大(即使对于b文件也是如此)。Johnson(1977)证明了随后的项必须是a*R(n)+b*10^k的形式,其中a和a+b位于{1..9}中,k<n,并且n>9*10^9,如果b!=0. -M.F.哈斯勒,2018年6月26日
|
|
链接
|
|
|
数学
|
压扁@{2,3,5,7,
表[选择[
表@@
前置[Prepend[
表[{阿@k,A[k-1],4},{k,2,n}],{A[1],4}],
未估价[
未评估[FromDigits[{1,3,7,9}[[A/@范围[n]]]]]//
压扁,
函数[L,
和[PrimeQ[#],
和@@PrimeQ[
从数字/@(排列[L,#]和/@
随机排列[长度@L, 5])],
和@@PrimeQ[FromDigits/@Rest[Permutations[L]]]]@
整数位数@#&],{n,2,33}]}
(*在约7.5秒内穷尽搜索33位数字,5分钟内最多搜索69位数字,但无法达到317位数字。根据Schroeppel的定理,这对991以后的所有重复都没有帮助-高斯珀2017年1月6日*)
|
|
黄体脂酮素
|
(哈斯克尔)
导入数据。列表(排列,(\\))
a258706 n=a258706_列表!!(n-1)
a258706_list=f a000040_list,其中
f ps'@(p:ps)|any(==0)(映射a010051'dps)=f ps
|否则=p:f(ps'\\dps)
其中dps=映射读取$permutations$show p
{A=[2,5];对于(n=1317,my(D=[1,3,7,9],r=10^n\9);对于(A=1,4,对于(b=A^(n<3),4,针对(j=0,if(b!=A,n-1),ispseudoprime(D[A]*r+(D[b]-D[A])*10^j)||next(2));A=集合并<A,n-1)]);A}
是(n)={(n=数字(n))[#n]>=n[1]&#select(d->d,n[^1]-n[^-1])<2&&!对于(i=1,(#n)^(n[#n]>1),isprime(fromdigits(n=concat(n[^1],n[1])))||return)}\\根据约翰逊定理和这里所要求的极小性,数字必须是ab.b或a…ab(=>数字的第一个差至多有1个非零分量)然后就足以考虑数字的旋转。(完)
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|