|
%I #20 Sep 08 2022 08:45:04
%S 13,37,43,61,97,103,127,163,181,193,211,223,277,307,313,337,373,421,
%T 433,523,541,571,607,613,631,733,751,811,853,877,883,907,937,1021,
%U 1033,1051,1063,1087,1117,1153,1201,1303,1381,1423,1483,1531
%N Primes p such that 2*p - 13 is also prime.
%H Harry J. Smith, <a href="/A063913/b063913.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5, 2000]], PrimeQ[2 # - 13]&] (* _Vincenzo Librandi_, Feb 02 2014 *)
%o (PARI) { n=0; p=1; for (m=1, 10^9, p=nextprime(p+1); if (isprime(2*p - 13), write("b063913.txt", n++, " ", p); if (n==1000, break)) ) } \\ _Harry J. Smith_, Sep 02 2009
%o (Magma) [n: n in [6..2000] | IsPrime(n) and IsPrime(2*n-13)]; // _Vincenzo Librandi_, Feb 02 2014
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Aug 31 2001
|
