OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
(5-2, 5+2) are prime
(13-6, 13+6) are prime
MATHEMATICA
Select[Prime[Range[1000]], PrimeQ[#-(#-1)/2] && PrimeQ[#+(#-1)/2]&]
PROG
(PARI) forprime(p=3, 1e5, if(isprime(p+p\2)&isprime(p\2+1), print1(p", ")))
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 27 2008
STATUS
approved