OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[2000]], PrimeQ[2 #^2 - 1] && PrimeQ[3 #^2 - 2] &] (* T. D. Noe, Jun 06 2012 *)
PROG
(Magma) [p: p in PrimesUpTo(17000) | IsPrime(2*p^2-1)and IsPrime(3*p^2-2)]; // Vincenzo Librandi, Apr 08 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zak Seidov, Jun 04 2012
STATUS
approved