OFFSET
1,1
MATHEMATICA
Select[Prime[Range[220]], PrimeQ[4#+7]&&PrimeQ[7#+4]&]
PROG
(Magma) [p: p in PrimesUpTo(10000)| IsPrime(7*p+4) and IsPrime(4*p+7)] /* Vincenzo Librandi, Nov 13 2010 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 07 2005
EXTENSIONS
More terms from Vincenzo Librandi, Apr 01 2010
STATUS
approved