OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..3500
EXAMPLE
a(1)=1 because 16*1^2-2*1-1=13 is prime and 16*1^2+2*1-1=17 is prime.
MATHEMATICA
Select[Range[500], PrimeQ[16 #^2 - 2 # - 1] && PrimeQ[16 #^2 + 2 # - 1] &] (* T. D. Noe, Apr 16 2012 *)
Select[Range[500], AllTrue[16#^2-1+{2#, -2#}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 01 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Gerasimov Sergey, Apr 08 2012
EXTENSIONS
Corrected and extended by T. D. Noe, Apr 16 2012
STATUS
approved