OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..7640
MAPLE
filter:= n -> isprime(n^2+5) and isprime(n^2+7):
N:= 10000: # to get all entries <= 6*N
A127845:= select(filter, [6*n $ n=0..N]); # Robert Israel, Apr 17 2014
MATHEMATICA
Select[Range[0, 5000, 6], AllTrue[#^2+{5, 7}, PrimeQ]&] (* Harvey P. Dale, May 25 2023 *)
PROG
(Magma) [n: n in [0..500] | IsPrime(n^2+5) and IsPrime(n^2+7)] // Vincenzo Librandi, Nov 23 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 05 2007
STATUS
approved