A103805 Primes p such that 2*p - 27 and 2*p + 27 are positive primes.

17, 23, 37, 43, 83, 103, 127, 197, 257, 307, 313, 317, 337, 373, 457, 673, 677, 727, 733, 797, 863, 887, 937, 953, 1013, 1063, 1283, 1303, 1597, 1667, 1693, 1777, 1783, 1987, 1997, 2053, 2063, 2267, 2297, 2393, 2473, 2543, 2707, 2777, 2833, 2837

Offset: 1

Author

Zak Seidov, Feb 16 2005

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A103802, A103803, A103804.

Programs

Magma

[p: p in PrimesUpTo(3000) | IsPrime(2*p-27) and IsPrime(2*p+27)]; // Vincenzo Librandi, Nov 16 2010

Mathematica

Select[Range[17,2000], PrimeQ[ # ] && PrimeQ[2# + 27] && PrimeQ[2# - 27] &]
Select[Prime[Range[5,500]],And@@PrimeQ[2#+{27,-27}]&] (* Harvey P. Dale, Jul 06 2013 *)

Extensions

More terms from Vincenzo Librandi, Mar 17 2010