提出
经核准的
编辑
Paul S.Bruckman和T.D.Noe，<a href=“/A051169号/b051169.txt“>表格n，a（n）代表n==1..974年</a>
（哈斯克尔）
a051169 n=水头[m|m<-[2..]，
所有（==0）$map（a010051'.（2*m-））$take n a000040_list]
--Reinhard Zumkeller公司2015年4月9日
囊性纤维变性。A010051型，A000040美元.
模[{nn=50，prs}，prs=Prime[nn]]；表[SelectFirst[Range[50000]，AllTrue[Table[2#-p，{p，Take[prs，n]}]，CompositeQ]&]，{n，nn}]]（*程序使用Mathematica版本10*中的AllTrue函数）(*哈维·P·戴尔2015年3月18日*）
a[n_]：=a[n]=捕捉[For[m=2，True，m++，If[And@@（！PrimeQ[2*m-#]&）/@Prime/@Range[n]，Throw[m]]]；表格[打印[a[n]]；a[n]，{n，1，46}](*Jean-François Alcover公司2012年7月17日*）
