A155738 Primes p such that 4*p^2+2*p-1 is also prime.

2, 3, 5, 13, 19, 23, 43, 47, 67, 79, 103, 109, 149, 157, 179, 193, 239, 353, 373, 397, 419, 487, 499, 503, 523, 547, 563, 569, 587, 619, 677, 683, 787, 797, 839, 853, 863, 929, 1013, 1093, 1193, 1229, 1289, 1303, 1319, 1423, 1433, 1499, 1553, 1619, 1669, 1733

Offset: 1

Author

Vincenzo Librandi, Jan 26 2009

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A155736, A155737.

Programs

Magma

[p: p in PrimesUpTo(1800)| IsPrime(4*p^2 + 2*p - 1)]; // Vincenzo Librandi, Oct 30 2012

Mathematica

Select[Prime[Range[400]],PrimeQ[4#^2+2#-1]&]  (* Harvey P. Dale, Mar 22 2011 *)

Formula

A155736 INTERSECT A000040. [R. J. Mathar, Jan 05 2011]