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

Author

Vladimir Joseph Stephan Orlovsky, Mar 10 2009

Keywords

• nonn
• easy

Links

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

Crossrefs

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

Programs

Magma

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

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 *)