OFFSET
1,2
LINKS
Zak Seidov, Table of n,a (n) for n=1..1000
EXAMPLE
n=1, {3*(2n)^2+1, 1*(2n)^2+3}={13,7};
n=4, {3*(2n)^2+1, 1*(2n)^2+3}={193,67};
n=11, {3*(2n)^2+1, 1*(2n)^2+3}={1453,487};
n=32, {3*(2n)^2+1,1*(2n)^2+3}={12289,4099}.
Resulting primes are congruent to 1 mod 3.
MATHEMATICA
Select[Range[1600], AllTrue[{3(2#)^2+1, (2#)^2+3}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 30 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jan 31 2009
EXTENSIONS
All the terms in the b-file had to be divided by 2. Corrected by N. J. A. Sloane, Aug 31 2009.
STATUS
approved