Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #30 Dec 24 2024 13:45:45
%S 5,7,13,19,37,43,67,73,79,103,109,139,157,193,223,277,307,313,349,367,
%T 373,379,397,409,433,457,463,487,499,523,547,619,643,727,733,739,769,
%U 787,853,877,883,919,937,997,1009,1069,1093,1123,1129,1237
%N Primes p such that 2*p - 7 is also prime.
%C All terms > 5 are == 1 (mod 6). - _Zak Seidov_, Jan 07 2014
%H Harry J. Smith, <a href="/A063910/b063910.txt">Table of n, a(n) for n = 1..1000</a>
%F A089192 INTERSECT A000040. - _R. J. Mathar_, Mar 23 2017
%t Select[Prime[Range[2, 2000]], PrimeQ[2 # - 7]&] (* _Vincenzo Librandi_, Feb 02 2014 *)
%o (PARI) isok(p) = { isprime(p) && isprime(2*p - 7) } \\ _Harry J. Smith_, Sep 02 2009
%o (Magma) [n: n in [3..2000] | IsPrime(n) and IsPrime(2*n-7)]; // _Vincenzo Librandi_, Feb 02 2014
%K easy,nonn
%O 1,1
%A _N. J. A. Sloane_, Aug 31 2001