OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[NextPrime/@Transpose[Select[Partition[Prime[Range[500]], 2, 1], Last[#]-First[#] == 2&]][[2]], !PrimeQ[#-2]&&!PrimeQ[#+2]&] (* Harvey P. Dale, Feb 25 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Dec 31 2008
EXTENSIONS
863 inserted by R. J. Mathar, Jan 03 2009
STATUS
approved