OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
EXAMPLE
7 is a term since: 7^3 +- 12^2 -> (199,487) which are primes.
MATHEMATICA
Select[Range[8! ], PrimeQ[ #^3-(#+5)^2]&&PrimeQ[ #^3+(#+5)^2]&]
Select[Range[4700], AllTrue[#^3+{(#+5)^2, -(#+5)^2}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 19 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jun 01 2010
STATUS
approved