OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[20000]], PrimeQ[2 #^2 - 1] && PrimeQ[3 #^2 - 2] && PrimeQ[4 #^2 - 3] &] (* T. D. Noe, Jun 06 2012 *)
Select[Prime[Range[12500]], AllTrue[{2#^2-1, 3#^2-2, 4#^2-3}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 11 2015 *)
PROG
(Magma) [p: p in PrimesUpTo(140000) | IsPrime(2*p^2-1) and IsPrime(3*p^2-2) and IsPrime(4*p^2-3)]; // Vincenzo Librandi, Apr 08 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zak Seidov, Jun 04 2012
STATUS
approved