OFFSET
1,1
MATHEMATICA
Select[Table[8n^2+4n+1, {n, 0, 200}], PrimeQ] (* Harvey P. Dale, Jul 24 2012 *)
PROG
(Magma) [ a: n in [0..400] | IsPrime(a) where a is 8*n^2 +4*n + 1]; // Vincenzo Librandi, Nov 17 2010
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Feb 14 2005
STATUS
approved