OFFSET
1,1
COMMENTS
MATHEMATICA
Select[ Prime[ Range[600]], PrimeQ[2# + 1] && PrimeQ[(2^(#+7) * 5^(#+5) - 204979) / 9] &]
PROG
(Magma) [p: p in PrimesUpTo(500) | IsPrime(2*p+1) and IsPrime((2^(p+7)*5^(p+5)-204979) div 9)]; // Vincenzo Librandi, Jan 07 2016
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Mikk Heidemaa, Dec 30 2015
STATUS
approved