OFFSET
1,1
COMMENTS
This is roughly a search for at least three successive zeros in A048614.
EXAMPLE
The twin prime 9433 is in the sequence because it is in the middle of the list of 7 successive primes 9419, 9421, 9431, 9433, 9437, 9439, 9461, of which each is a member of a twin prime pair.
MATHEMATICA
tp7Q[lst_]:=Total[If[PrimeQ[#+2]||PrimeQ[#-2], 1, 0]&/@lst]==7; Select[Partition[Prime[ Range[ 160000]], 7, 1], tp7Q][[;; , 4]] (* Harvey P. Dale, Oct 22 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Irina Gerasimova, Jun 30 2013
STATUS
approved