A181603-OEIS公司

A181603号

双素数以1结尾。

11、31、41、61、71、101、151、181、191、241、271、281、311、421、431、461、521、571、601、641、661、811、821、881、1021、1031、1051、1061、1091、1151、1231、1291、1301、1321、1451、1481、1621、1721、1871、1931、1951、2081、2111、2131、2141、2311、2341、2381 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`这些是双素数==1（mod 30）或==11（mod 30=21）。在第一种情况下，它们不能是下双素数，因为上双素数==3（mod 30）并且可以被3整除。在第二种情况下，它们不能是上双素数，因为下双素数==9（mod 30）并且可以被3整除。最后一种情况被排除在外，因为这意味着它们可以被3整除。总之，这里的上双质数由下式给出A282326型下面的双质数A282321型. -R.J.马塔尔2017年2月14日`
	链接	`哈维·P·戴尔，n=1..1000时的n，a（n）表` `奥马尔·波尔，确定几何尺寸`
	MAPLE公司	`isA181603:=进程（p）` `如果isprime（p）和（isprime` `如果modp（p，10）=1，则` `真；` `其他的` `假；` `结束条件：；` `其他的` `假；` `结束条件：；` `结束进程：` `n从1到1000 do` `如果是A181603（n），则` `printf（“%d，”，n）；` `结束条件：；` `结束do：#R.J.马塔尔2017年2月14日`
	数学	`选择[Prime@Range@360，Mod[#，10]==1&&（PrimeQ[#-2]\|\|PrimeQ[#+2]）&](罗伯特·威尔逊v2010年11月6日）` `选择[Flatten[Select[Partition[Prime[Range[400]]，2，1]，#[2]]-#[1]]==2&]]，Mod[#，10]==1&](哈维·P·戴尔2021年10月24日）`
	交叉参考	`参见。A001097号,A181604号,A181605号,A181606号.` `上下文中的序列：A040172美元 A040160型 A040981号A040983号 A040979号 A181182号` `相邻序列：A181600个 A181601号 A181602号A181604年 A181605号 A181606号`
	关键字	`基础,非n`
	作者	`奥马尔·波尔2010年11月1日`
	扩展	`更多术语来自罗伯特·威尔逊v2010年11月6日`
	状态	`经核准的`