OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[800]], PrimeQ[#^2 + 4]&& PrimeQ[#^2 - 6]&] (* Vincenzo Librandi, Apr 16 2013 *)
PROG
(Sage) A173641 = list(p for p in primes(10^5) if is_prime(p^2+4) and is_prime(p^2-6))
(Magma) [p: p in PrimesUpTo(4100) | IsPrime(p^2+4)and IsPrime(p^2-6)]; // Vincenzo Librandi, Apr 16 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Nov 24 2010
EXTENSIONS
Corrected and extended by D. S. McNeil, Nov 24 2010
STATUS
approved