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
276672 is the average of the four consecutive primes 276637, 276671, 276673, 276707.
558828 is the average of the four consecutive primes 558793, 558827, 558829, 558863.
MATHEMATICA
Select[Partition[Prime[Range[500000]], 4, 1], Differences[#]=={34, 2, 34}&] [[All, 2]]+1 (* Harvey P. Dale, Oct 11 2017 *)
PROG
(Python)
from sympy import isprime, prevprime, nextprime
for i in range(0, 1000001, 6):
if isprime(i-1) and isprime(i+1) and prevprime(i-1) == i-35 and nextprime(i+1) == i+35 : print (i, end=', ')
CROSSREFS
KEYWORD
nonn
AUTHOR
Karl V. Keller, Jr., Apr 04 2016
STATUS
approved