A325934-OEIS公司

A325934型

由单个1和其他数字的至少一个副本组成的素数。

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日`
	链接	`哈维·P·戴尔，n=1..1000时的n，a（n）表`
	数学	`选择[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）lista（nn）=｛forprime（p=1，nn，my（d=数字（p））；if（（#Set（d）==2）&&（#select（x->（x==1），d）==1），print1（p，“，”）；）；｝\\米歇尔·马库斯2019年9月11日`
	交叉参考	`的后续A208270型.后续A235154型。` `上下文中的序列：A059500型 A104213号 A178550型A105896号 A112741号 11380英镑` `相邻序列：A325931型 A325932型 A325933型A325935型 A325936型 A325937型`
	关键词	`非n,基础`
	作者	`哈维·P·戴尔2019年9月9日`
	状态	`经核准的`