搜索: 编号:a325934
|
|
|
|
13, 17, 19, 31, 41, 61, 71, 199, 313, 331, 661, 881, 919, 991, 1777, 1999, 2221, 3313, 3331, 4441, 6661, 7177, 7717, 9199, 31333, 33331, 71777, 99991, 199999, 313333, 331333, 333331, 991999, 999199, 3331333, 3333133, 3333313, 3333331, 9999991, 19999999
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
下面的第二个Mathematica程序比第一个更复杂,但效率更高。它利用了这样一个观察结果,即任何一位数字为一的数字,以及2、4、5、6或8中另一位数字的一个或多个副本,只有当其中一位是最后一位(最低有效位)时,才能成为质数。因此,无需生成或测试此类数字的任何排列。这意味着该程序生成和测试的候选数字仅为下面第一个Mathematica程序的37.5%。2019年,在我的笔记本电脑上,第一个Mathematica程序花了约8.2秒计算所有包含200位数字的项,而第二个Mathematica程序只花了约6.4秒-哈维·P·戴尔2019年9月20日
进一步的改进可以通过不测试1的任何排列以及7的2、5、8、11等副本来实现,因为任何此类数字的数字和都是3的倍数,因此不能是素数-哈维·P·戴尔2019年9月23日
|
|
链接
|
|
|
数学
|
选择[Flatten[Table[FromDigits/@Permutations[PadRight[{1},n,k]],{n,10},{k,Range[2,9]}]],PrimeQ]//并集
模块[{nn=10,c1,c2},c1=Select[Table[FromDigits[PadLeft[{1},n,k]],{k,{2,4,5,6,8}},{n,2,nn}]//Flatten,PrimeQ];c2=选择[FromDigits/@Flatten[Permutations/@Flatten[Table[PadLeft[{1},n,k],{k,{3,7,9}},{n,2,nn}],1],PrimeQ];排序[Flatten[Join[{c1,c2}]]](*哈维·P·戴尔2019年9月20日*)
|
|
黄体脂酮素
|
(PARI)列表a(nn)={表示素数(p=1,nn,my(d=数字(p));如果(#Set(d)==2)&&(#select(x->(x==1),d)==1),打印1(p,“,”););}\\米歇尔·马库斯2019年9月11日
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.005秒内完成
|