OFFSET
1,1
COMMENTS
EXAMPLE
a(2)=10 since 10^2 + 1 = 101 and 10^2 - 3 = 97 are both prime.
MATHEMATICA
Select[Range[3, 3000], AllTrue[#^2+{1, -3}, PrimeQ]&] (* Harvey P. Dale, Jul 25 2024 *)
PROG
(Magma) [n: n in [2..100000] |IsPrime(n^2+1) and IsPrime(n^2-3)] // Vincenzo Librandi, Nov 13 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
John L. Drost, Feb 07 2006
STATUS
approved