OFFSET
1,1
COMMENTS
2 together with primes p with property that (p-previous prime)>=6 and (next prime-p)>=6.
By the finitude of the generalized Brun constants, this sequence includes almost all primes.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(1)=2 (-2,0,4,6 are nonprimes); a(2)=53 (49,51,55,57 are nonprimes).
MATHEMATICA
Join[{2}, Select[Prime[Range[200]], NoneTrue[#+{4, 2, -2, -4}, PrimeQ]&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 21 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 11 2009
EXTENSIONS
Comment from Charles R Greathouse IV, Nov 12 2009
STATUS
approved