OFFSET
1,1
COMMENTS
LINKS
Karl V. Keller, Jr., Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Twin Primes
EXAMPLE
9401700 is the average of the four consecutive primes 9401647, 9401699, 9401701, 9401753.
64312710 is the average of the four consecutive primes 64312657, 64312709, 64312711, 64312763.
MATHEMATICA
Select[Partition[Prime[Range[122*10^5]], 4, 1], Differences[#]=={52, 2, 52}&][[All, 2]]+1 (* Harvey P. Dale, Mar 07 2018 *)
PROG
(Python)
from sympy import isprime, prevprime, nextprime
for i in range(0, 250000001, 6):
..if isprime(i-1) and isprime(i+1) and prevprime(i-1) == i-53 and nextprime(i+1) == i+53: print (i, end=', ')
CROSSREFS
KEYWORD
nonn
AUTHOR
Karl V. Keller, Jr., Jun 07 2016
STATUS
approved