OFFSET
1,1
MATHEMATICA
Select[Prime[Range[600000]], And@@PrimeQ[NestList[2 # + 3 &, #, 7]] &]
PROG
(Magma) [p: p in PrimesUpTo(600000000) | forall{i: i in [1..7] | IsPrime(2^i*p+3*(2^i-1))}];
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jun 24 2014
EXTENSIONS
Inappropriate MAGMA code simplified and other terms added from Bruno Berselli, Jun 24 2014
STATUS
approved