OFFSET
1,1
EXAMPLE
1932 is a term since 1932, 1932 + 2310 = 4242, 1932 + 2 * 2310 = 6552, 1932 + 3 * 2310 = 8862, and 1932 + 4 * 2310 = 11172 are averages of twin primes.
MATHEMATICA
q=2310; lst={}; Do[If[PrimeQ[n-1] &&PrimeQ[n+1] &&PrimeQ[n+q*1-1] &&PrimeQ[n+q*1+1] &&PrimeQ[n+q*2-1] &&PrimeQ[n+q*2+1] &&PrimeQ[n+q*3-1] &&PrimeQ[n+q*3+1] &&PrimeQ[n+q*4-1] &&PrimeQ[n+q*4+1], Print[n]; AppendTo[lst, n]], {n, 10^8}]; lst
Select[Range[4*10^5], And @@ PrimeQ[# + Plus @@@ Tuples[{{-1, 1}, 2310 * Range[0, 4]}]] &] (* Amiram Eldar, Dec 31 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Aug 20 2008
EXTENSIONS
More terms from Amiram Eldar, Dec 31 2019
STATUS
approved