OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Prime[Range[1000]], PrimeQ[2# - 1] && PrimeQ[2# - 3] &] (* Ray Chandler, May 11 2007 *)
PROG
(Magma) [ p: p in PrimesUpTo(9000) | IsPrime(2*p-3) and IsPrime(2*p-1)] // Vincenzo Librandi, Jan 29 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 03 2007
STATUS
approved