OFFSET
1,1
COMMENTS
Also primes p such that (4*p-41)/3 is a square. - Bruno Berselli, Sep 14 2015
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[3 n^2 - 3 n + 11, {n, 1, 700}], PrimeQ] (* Vincenzo Librandi, Jul 16 2012 *)
PROG
(Magma) [a: n in [1..100] | IsPrime(a) where a is 3*n^2-3*n+11]; // Vincenzo Librandi, Jul 16 2012
(PARI) lista(nn) = for (n=1, nn, if (isprime(p=3*n^2-3*n+11), print1(p, ", "))) \\ Michel Marcus, Sep 14 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Dec 28 2008
STATUS
approved