|
%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_
|
