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,1

Links

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

Formula

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

Mathematica

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

Prog

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

Crossrefs

Cf. A155736, A155737.

Sequence in context: A087763 A104735 A157976 * A215371 A164958 A145908

Adjacent sequences: A155735 A155736 A155737 * A155739 A155740 A155741

Keyword

nonn,easy

Author

Vincenzo Librandi, Jan 26 2009

Status

approved