OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[200], PrimeQ[13#^2+3#+1]&] (* Harvey P. Dale, Dec 08 2011 *)
PROG
(Magma) [n: n in [0..200] | IsPrime(13*n^2+3*n+1)]; // Vincenzo Librandi, Sep 24 2012
(PARI) is(n)=isprime(13*n^2+3*n+1) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 21 2009
EXTENSIONS
Definition corrected and terms recomputed by Jon E. Schoenfield and N. J. A. Sloane, Jun 16 2010
STATUS
approved