OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..4350
MATHEMATICA
Select[Range[5, 2000], PrimeQ[# + 9] && PrimeQ[# - 9] &] / 2 (* Vincenzo Librandi, May 21 2017 *)
PROG
(Magma) [n/2: n in [5..1500] |IsPrime(n+9) and IsPrime(n-9)]; // Vincenzo Librandi, May 22 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Oct 26 2003
STATUS
approved