OFFSET
1,1
COMMENTS
2 together with prime numbers, isolated from neighboring primes by>6.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2500
EXAMPLE
a(1)=2 (-4,-2,0,4,6,8 are nonprimes); a(2)=211 (205,207,209,213,215,217 are nonprimes).
MATHEMATICA
Join[{2}, Select[Prime[Range[400]], NoneTrue[#+{2, 4, 6, -2, -4, -6}, PrimeQ]&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 16 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 13 2009
STATUS
approved