login
Primes p such that p + 210 is also prime.
4

%I #21 Jun 30 2017 01:40:17

%S 13,17,19,23,29,31,41,47,53,59,61,67,71,73,83,97,101,103,107,127,137,

%T 139,149,157,163,173,179,191,199,211,223,229,233,239,251,257,269,277,

%U 281,293,311,313,331,337,347,353,359,367,383,389,397,409,421,431,433

%N Primes p such that p + 210 is also prime.

%H Charles R Greathouse IV, <a href="/A049482/b049482.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) >> n log^2 n. - _Charles R Greathouse IV_, Feb 23 2017

%e Both 13 and 13 + 210 = 223 are prime.

%t Select[Prime@ Range@ 84, PrimeQ[# + 210] &] (* _Michael De Vlieger_, Jun 29 2017 *)

%o (PARI) list(lim)=my(v=List()); forprime(p=2,lim, if(isprime(p+210), listput(v,p))); Vec(v) \\ _Charles R Greathouse IV_, Feb 23 2017

%Y Cf. A045320, A001359, A023201, A049481.

%K nonn

%O 1,1

%A _Labos Elemer_