OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[0, 600], PrimeQ[1 - 2*# + 3*#^2]&] (* Vincenzo Librandi, Jan 08 2013 *)
PROG
(Magma) [n: n in [0..550] | IsPrime(1-2*n+3*n^2)]; // Vincenzo Librandi, Jan 08 2013
(PARI) is(n)=isprime(1-2*n+3*n^2) \\ Charles R Greathouse IV, Jun 12 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Aug 28 2003
STATUS
approved