A103776 - OEIS
2, 7, 11, 17, 41, 61, 101, 167, 227, 257, 281, 337, 347, 367, 397, 401, 461, 467, 487, 541, 571, 587, 601, 631, 641, 647, 661, 691, 701, 761, 857, 947, 971, 977, 997, 1021, 1087, 1237, 1277, 1291, 1381, 1451, 1481, 1607, 1621, 1627, 1667, 1697, 1787, 1811
MATHEMATICA
Select[Prime[Range[300]], PrimeQ[8 #^2 + 4 # + 1]&] (* Harvey P. Dale, Jan 04 2011 *)
PROG
(Magma) [n: n in [0..2000] | IsPrime(n) and IsPrime(8*n^2 + 4*n + 1)]; // Vincenzo Librandi, Feb 03 2014