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

Links

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

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

Prog

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

Crossrefs

Cf. A103802, A103803, A103804.

Sequence in context: A072184 A107644 A158710 * A333327 A241528 A156567

Adjacent sequences: A103802 A103803 A103804 * A103806 A103807 A103808

Keyword

nonn

Author

Zak Seidov, Feb 16 2005

Extensions

More terms from Vincenzo Librandi, Mar 17 2010

Status

approved