OFFSET
1,1
EXAMPLE
13 is a term because it's prime and prime(n)+n < 13 for n <= 4 and > 13 for n > 4, and prime(n)-n < 13 for n <= 8 and > 13 for n > 8.
MATHEMATICA
nn=100; p=Select[Union[Flatten[Table[Prime[n]+{-n, n}, {n, nn}]]], PrimeQ]; Complement[Prime[Range[PrimePi[p[[-1]]]]], p]
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 21 2010
EXTENSIONS
Corrected by T. D. Noe, Nov 21 2010
STATUS
approved