OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..3000
MATHEMATICA
Select[Prime[Range[400]], PrimeQ[5#^2+5#-1]&] (* Harvey P. Dale, Apr 03 2010 *)
PROG
(Magma) [p: p in PrimesUpTo(2500) | IsPrime(5*p^2+5*p-1)]; // Vincenzo Librandi, Aug 20 2014
(PARI) lista(nn) = {forprime(p=2, nn, if (isprime(5*p^2+5*p-1), print1(p, ", ")); ); } \\ Michel Marcus, Aug 20 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Dec 19 2009
EXTENSIONS
Corrected sequence because 1553 had been omitted Harvey P. Dale, Apr 03 2010
STATUS
approved