OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
bb={}; Do[If[PrimeQ[2 Prime[n]+n]&&PrimeQ[2 Prime[n]-n], bb=Append[bb, n]], {n, 1, 3000, 2}]; bb
Select[Range[3000], And@@PrimeQ[2Prime[#]+{#, -#}]&] (* Harvey P. Dale, Apr 07 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 03 2005
STATUS
approved