A057619-OEIS公司

A057619号

n个素数的第一个序列中的初始素数与模4的3同余。

3, 7, 199, 199, 463, 463, 463, 36551, 39607, 183091, 241603, 241603, 241603, 9177431, 9177431, 95949311, 105639091, 341118307, 727334879, 727334879, 1786054147, 1786054147, 22964264027, 54870713243, 79263248027, 113391385603 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1，1`
	评论	`根据Shiu定理，序列是无限的-乔纳森·桑多，2017年6月22日`
	参考文献	`R.K.Guy，“数论中尚未解决的问题”，A4`
	链接	`乔瓦尼·雷斯塔，n=1..36时的n，a（n）表（条款<4*10^14）` `J.K.Andersen，连续同余素数.` `D.K.L.Shiu，同余素数串，J.Lond。数学。Soc.61（2）（2000）359-373号文件[1760689令吉]`
	例子	`a（13）=241603，因为这个数字是所有形式为4n+3的13个连续素数序列中的第一个。`
	数学	`NextPrime[n_Integer]：=模块[{k=n+1}，While[！PrimeQ[k]，k++]；返回[k]]；PrevPrime[n_Integer]：=模块[{k=n-1}，While[！PrimeQ[k]，k--]；返回[k]]；p＝0；Do[a=表[-1，{n}]；k=最大值[1，p]；而[Union[a]！={3} ，k=下一个质数[k]；a=取[AppendTo[a，Mod[k，4]]，-n]]；p=嵌套列表[PrevPrime，k，n]；打印[p[[2]]]；p=p[-1]]，{n，1，18}]` `使用[{prs=Table[If[Mod[Prime[n]，4]==3，1，0]，{n，464610^6}]}，Prime/@Table[SequencePosition[prs，PadRight[{}，k，1]，1][[1，1]]，{k，26}]]（程序需要很长时间才能运行，需要Mathematica版本10或更高版本）(哈维·P·戴尔2017年9月28日*）`
	交叉参考	`囊性纤维变性。A057620型,A057622号,A057624号.` `上下文中的顺序：A105763号 A291352型 A132564号A349006型 A349838飞机 A179859号` `相邻序列：2005年6月16日 A057617号 A057618号A057620型 A057621号 A057622号`
	关键词	`非n`
	作者	`罗伯特·威尔逊v2000年10月9日`
	扩展	`更多术语来自唐·雷布尔2003年11月16日` `更多术语来自延斯·克鲁斯·安徒生2006年5月29日`
	状态	`经核准的`