OFFSET
1,1
EXAMPLE
2 + 3 = 5 and 4 + 9 = 13 are primes,
8 + 3 = 11 and 64 + 9 = 73 are primes.
MATHEMATICA
Select[Prime[Range[3, 300]]-3, PrimeQ[#^2+9]&] (* Harvey P. Dale, Nov 11 2014 *)
PROG
(PARI) {a=3; forstep(n=2, 2000, 2, if(isprime(n+a)&&isprime(n^2+a^2), print1(n", ")))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 19 2012
STATUS
approved