OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..740
MATHEMATICA
Select[Prime[Range[200000]], PrimeQ[2 #^2 - 1] && PrimeQ[3 #^2 - 2] && PrimeQ[4 #^2 - 3] && PrimeQ[5 #^2 - 4] &] (* T. D. Noe, Jun 06 2012 *)
PROG
(Magma) [p: p in PrimesUpTo(2500000) | forall{i*p^2-i+1: i in [2..5] | IsPrime(i*p^2-i+1)}]; // Vincenzo Librandi, Apr 08 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zak Seidov, Jun 05 2012
STATUS
approved