OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[7p^2 + 7p - 1, {p, Prime[Range[400]]}], PrimeQ] (* Vincenzo Librandi, Oct 13 2012 *)
PROG
(Magma) [a: p in PrimesInInterval(1, 800) | IsPrime(a) where a is 7*p^2 + 7*p - 1]; // Vincenzo Librandi, Oct 13 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 26 2010
STATUS
approved
