A157978 Primes p such that 4*p - 3 is also a prime.

2, 5, 11, 19, 23, 29, 59, 61, 71, 79, 89, 101, 103, 109, 113, 131, 149, 151, 191, 193, 233, 239, 263, 283, 313, 331, 353, 359, 373, 389, 401, 431, 439, 479, 499, 521, 523, 541, 569, 571, 599, 619, 631, 653, 659, 673, 683, 701, 709, 739, 743, 751, 761, 773, 829

Offset

1,1

Links

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

Mathematica

q=3; lst={}; Do[p=Prime[n]; If[PrimeQ[(q+1)*p-q], AppendTo[lst, p]], {n, 6!}]; lst
Select[Prime[Range[1000]], PrimeQ[4 # - 3]&] (* Vincenzo Librandi, Feb 03 2014 *)

Prog

(Magma) [n: n in [0..2000] | IsPrime(n) and IsPrime(4*n - 3)]; // Vincenzo Librandi, Feb 03 2014

Crossrefs

Cf. A136082, A136083, A023213, A023221, A023235, A023240, A157974, A136083, A136084, A136085, A136086, A136087, A089440, A157975, A157976, A157977.

Sequence in context: A308517 A101057 A045362 * A282246 A045363 A336116

Adjacent sequences: A157975 A157976 A157977 * A157979 A157980 A157981

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Mar 10 2009

Status

approved