%I#14 2022年9月8日08:45:46
%S 3,5,7,11,13,17,19,31,37,43,59,61,79,83,89,97107109113139149167,
%电话:191233241263271293307311337359373383439443479487491,
%电话:5235577617641647659673683701733757811829853857859877
%N素数p使得A071568((p-1)/2)也是素数。
%C素数p使得(p-1)^3/8+(p+1)/2也是素数,即在A095692中。
%H Vincenzo Librandi,n表,n=1..1000时的a(n)</a>
%ep=3在序列中,因为(3-1)^3/8+(3+1)/2=3是素数。
%e p=5在序列中,因为(5-1)^3/8+(5+1)/2=11是素数。
%t f[n]:=((n-1)/2)^3+((n+1)/2);lst={};Do[p=素数[n];如果[PrimeQ[f[p]],AppendTo[lst,p]],{n,6!}];第一次
%t选择[素数[范围[180]],素数Q[(#-1)^3/8+(#+1)/2]&](*H arvey P.Dale_,2011年1月5日*)
%o(岩浆)[PrimesUpTo(1000)|IsPrime中的p:p((p^3-3*p^2+7*p+3)div 8)];//_文森佐·利班迪(Vincenzo Librandi),2013年4月10日
%Y参见A162652、A163418、A16341、A163420、A163421。
%K nonn,简单
%O 1,1号机组
%2009年7月27日,A _Vladimir Joseph Stephan Orlovsky
%E定义由R.J.Mathar_重写,2009年8月17日
|