A286415-OEIS公司

A286415型

素数p，其中数字向右的所有循环移位也产生素数，除了再次到达p之前的最后一个。

三

19, 23, 29, 41, 43, 47, 53, 59, 61, 67, 83, 89, 173, 271, 277, 313, 379, 397, 419, 479, 491, 571, 577, 593, 617, 631, 673, 811, 839, 877, 911, 977, 1777, 1913, 2131, 2311, 2377, 2399, 2713, 2791, 2939, 2971, 4177, 4339, 4919, 4993, 5119, 5791, 6133, 6737, 6997, 7193, 7333, 7919, 8111 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,1`
	评论	`a（125）=937337931113，a（126）大于10^16（如果存在）。`
	链接	`柴华武，n=1..125时的n，a（n）表`
	例子	`2131是一个成员，因为它的数字向右的所有循环移位都会产生素数（12133121），除了到达原始素数之前的最后一个（1312）。`
	数学	`cycleDigs[k_]：=FromDigits/@NestList[RotateRight，IntegerDigits[k]，Integer Length[k]-1]；rgtSftNearCircPrmsInBtw[m_，n_]：=平行映射[If[AllTrue[Most[cycleDigs[#]]，PrimeQ]&&Not@PrimeQ[Last[cycle Digs[#]]]，#，Nothing]&，Prime@Range[PrimePi[m]，PricePi[n]]]；` `rgtSftNearCircPrmsInBtw[19，10^7]` `cspQ[n_]：=模块[{t=PrimeQ[FromDigits/@Table[RotateRight[IntegerDigits[n]，k]，{k，IntegerLength[n]-1}]}，Last[t]==False&&并集[Most[t]=={True}]；连接[{19，23，29，41，43，47，53，59，61，67，83，89}，选择[Prime[范围[26，1100]]，cspQ]](哈维·P·戴尔2020年10月5日）`
	黄体脂酮素	`（Python）` `来自itertools导入产品` `从sympy导入isprime` `A286415型_列表=[]` `对于范围（1，15）内的l：` `对于'123456789'中的d：` `对于产品中的w（'1379'，重复=l）：` `s=d+''.join（w）` `n=整数` `对于范围（l）中的i：` `如果不是isprime（int（s））：` `打破` `s=s[-1]+s[：-1]` `其他：` `如果不是isprime（int（s））：` `A286415型_列表.附加（n）#柴华武2017年5月21日`
	交叉参考	`囊性纤维变性。A270083型（第个，共个），A286333型.` `上下文中的序列：A286333型 A076056号 A068654号A305835型 A019384号 A088987号` `相邻序列：A286412型 286413元 A286414型A286416型 A286417型 A286418型`
	关键词	`非n,基础`
	作者	`米克·海德马2017年5月8日`
	状态	`经核准的`