OFFSET
1,1
COMMENTS
These primes are in A000414. [Bruno Berselli, Apr 20 2014]
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[4 n^2 - 4 n + 653, {n, 0, 300}], PrimeQ] (* Vincenzo Librandi, Apr 21 2014 *)
PROG
(Magma) [ a: n in [0..900] | IsPrime(a) where a is 4*n^2-4*n+653]; // Vincenzo Librandi, Nov 25 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Bobby Kramer (panthar1(AT)gmail.com), Oct 02 2008
EXTENSIONS
More terms from Vincenzo Librandi, Apr 28 2010
STATUS
approved